home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / security / cops / cops_104 / perl / suckline.pl < prev    next >
Encoding:
Text File  |  1992-03-10  |  229 b   |  19 lines
  1. #
  2. #  As title implies... :-)
  3. #
  4. sub main'suckline {
  5.     local($file, $_) = @_;
  6. #   local($package) = caller;
  7.  
  8. #   $file =~ s/^([^']+)$/$package'$1/; 
  9.     {
  10.     if (s/\\\n?$//) {
  11.         $_ .= <$file>;
  12.         redo;
  13.     }
  14.     } 
  15.     $_;
  16. }
  17.  
  18. 1;
  19.