home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / op / regexp_noamp.t < prev    next >
Text File  |  1999-07-20  |  168b  |  11 lines
  1. #!./perl
  2.  
  3. $skip_amp = 1;
  4. for $file ('op/regexp.t', 't/op/regexp.t') {
  5.   if (-r $file) {
  6.     do $file;
  7.     exit;
  8.   }
  9. }
  10. die "Cannot find op/regexp.t or t/op/regexp.t\n";
  11.