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 / ch4 / defined < prev    next >
Encoding:
Text File  |  1992-10-18  |  293 b   |  13 lines

  1. print if defined $switch{'D'};
  2.  
  3. print "$val\n" while defined($val = pop(@ary));
  4.  
  5. die "Can't readlink $sym: $!"
  6.     unless defined($value = readlink $sym);
  7.  
  8. eval '@foo = ()' if defined(@foo);
  9.  
  10. die "No XYZ package defined" unless defined %_XYZ;
  11.  
  12. sub foo { defined &bar ? &bar(@_) : die "No bar"; }
  13.