home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / c / cops_104.zip / cops_104 / perl / suckline.pl < prev    next >
Text File  |  1992-03-10  |  229b  |  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.