OS/2 Shareware BBS: 10 Tools/10-Tools.zip/perl560.zip/t/op/subst_wamp.t

Text File | 1999-07-20 | 192b | 12 lines

#!./perl

$dummy = defined $&;        # Now we have it...
for $file ('op/subst.t', 't/op/subst.t') {
  if (-r $file) {
    do $file;
    exit;
  }
}
die "Cannot find op/subst.t or t/op/subst.t\n";