home *** CD-ROM | disk | FTP | other *** search
/ ftp.cse.unsw.edu.au / 2014.06.ftp.cse.unsw.edu.au.tar / ftp.cse.unsw.edu.au / pub / doc / languages / perl / nutshell / ch5 / retnull < prev    next >
Encoding:
Text File  |  1992-10-18  |  238 b   |  13 lines

  1. sub _S_U_B_R_O_U_T_I_N_E {
  2.     _S_U_B_B_O_D_Y;
  3. }
  4.  
  5. {
  6.     local(@return) = &_S_U_B_R_O_U_T_I_N_E(_P_A_R_A_M_E_T_E_R_S);
  7.     if (shift @return) {
  8.     _S_U_C_C_E_S_S
  9.     } else {
  10.     _F_A_I_L
  11.     }
  12. }
  13.