diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-11-09 13:39:17 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-11-09 13:39:17 +0000 |
| commit | 5303340c1eb77f5b18e12347ed4a7fa2eb6cd9f7 (patch) | |
| tree | be6a2e2430c813552b7d1453cc690167c68a66b4 /t/TEST | |
| parent | e5d73d7778736a8bd9f7f44aad5289ad2c783a16 (diff) | |
| download | perl-5303340c1eb77f5b18e12347ed4a7fa2eb6cd9f7.tar.gz | |
perl 3.0 patch #38 (combined patch)
Forget the description, it's too late at night...
Diffstat (limited to 't/TEST')
| -rw-r--r-- | t/TEST | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1,6 +1,6 @@ #!./perl -# $Header: TEST,v 3.0.1.1 89/11/11 04:58:01 lwall Locked $ +# $Header: TEST,v 3.0.1.2 90/11/10 02:09:07 lwall Locked $ # This is written in a peculiar style, since we're trying to avoid # most of the constructs we'll be testing for. @@ -15,11 +15,11 @@ if ($ARGV[0] eq '-v') { chdir 't' if -f 't/TEST'; if ($ARGV[0] eq '') { - @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.*`); + @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.* lib.*`); } -open(config,"../config.sh"); -while (<config>) { +open(CONFIG,"../config.sh"); +while (<CONFIG>) { if (/sharpbang='(.*)'/) { $sharpbang = ($1 eq '#!'); last; |