diff options
| author | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1993-10-07 23:00:00 +0000 |
| commit | 79072805bf63abe5b5978b5928ab00d360ea3e7f (patch) | |
| tree | 96688fcd69f9c8d2110e93c350b4d0025eaf240d /t/comp/cmdopt.t | |
| parent | e334a159a5616cab575044bafaf68f75b7bb3a16 (diff) | |
| download | perl-79072805bf63abe5b5978b5928ab00d360ea3e7f.tar.gz | |
perl 5.0 alpha 2perl-5a2
[editor's note: from history.perl.org. The sparc executables
originally included in the distribution are not in this commit.]
Diffstat (limited to 't/comp/cmdopt.t')
| -rwxr-xr-x[-rw-r--r--] | t/comp/cmdopt.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/comp/cmdopt.t b/t/comp/cmdopt.t index e6e2abff75..1ee3581464 100644..100755 --- a/t/comp/cmdopt.t +++ b/t/comp/cmdopt.t @@ -1,6 +1,6 @@ #!./perl -# $Header: cmdopt.t,v 4.0 91/03/20 01:49:58 lwall Locked $ +# $RCSfile: cmdopt.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:17 $ print "1..40\n"; @@ -73,7 +73,7 @@ if ($a =~ /a/ && $x) { print "ok 33\n";} else { print "not ok 33\n";} if ($a !~ /a/ && $x) { print "not ok 34\n";} else { print "ok 34\n";} $x = ''; if ($a =~ /a/ && $x) { print "not ok 35\n";} else { print "ok 35\n";} - if ($a !~ /a/ && $x) { print "not ok 36\n";} else { print "ok 36\n";} +if ($a !~ /a/ && $x) { print "not ok 36\n";} else { print "ok 36\n";} $x = 1; if ($a =~ /a/ || $x) { print "ok 37\n";} else { print "not ok 37\n";} |