diff options
| author | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:08 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:52:08 +0000 |
| commit | bee1dbe28446f1b188ddf14e24e7f65771825d8f (patch) | |
| tree | f86e23246374104de23fe22cee4dfa6a9cca86e1 /t/op | |
| parent | 8adcabd8d9cf3c71e660c45cb7165ae4694308d4 (diff) | |
| download | perl-bee1dbe28446f1b188ddf14e24e7f65771825d8f.tar.gz | |
perl 4.0 patch 26: patch #20, continued
See patch #20.
Diffstat (limited to 't/op')
| -rw-r--r-- | t/op/goto.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index b76d44d3ba..29bf797a58 100644 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -1,6 +1,6 @@ #!./perl -# $Header: goto.t,v 4.0 91/03/20 01:52:52 lwall Locked $ +# $RCSfile: goto.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:43:25 $ print "1..3\n"; @@ -30,5 +30,4 @@ print "#2\t:$foo: == 4\n"; if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";} $x = `./perl -e 'goto foo;' 2>&1`; -print "#3\t/label/ in :$x"; if ($x =~ /label/) {print "ok 3\n";} else {print "not ok 3\n";} |