home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / fixshar.Z < prev    next >
Encoding:
Text File  |  1989-09-08  |  56 b   |  4 lines

  1. #!/usr/bin/perl -ni.old
  2. $ok=1 if /^[:#]/;
  3. print if $ok;
  4.