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:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1992-10-18
|
238 b
|
13 lines
sub _S_U_B_R_O_U_T_I_N_E {
_S_U_B_B_O_D_Y;
}
{
local(@return) = &_S_U_B_R_O_U_T_I_N_E(_P_A_R_A_M_E_T_E_R_S);
if (shift @return) {
_S_U_C_C_E_S_S
} else {
_F_A_I_L
}
}