diff options
| author | Larry Wall <lwall@netlabs.com> | 1991-11-05 06:28:31 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1991-11-05 06:28:31 +0000 |
| commit | de3bb51191e884300caf98892ecfcc0ca3ebc09c (patch) | |
| tree | 5456fe4ba1ec6e118cea151d5e94225763c05bd7 /t/cmd | |
| parent | f0fcb5529109ae3ced6c7fbb8cbd77162fa9bfdb (diff) | |
| download | perl-de3bb51191e884300caf98892ecfcc0ca3ebc09c.tar.gz | |
perl 4.0 patch 17: patch #11, continued
See patch #11.
Diffstat (limited to 't/cmd')
| -rw-r--r-- | t/cmd/subval.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/cmd/subval.t b/t/cmd/subval.t index ba4d833d3a..505025f7f4 100644 --- a/t/cmd/subval.t +++ b/t/cmd/subval.t @@ -1,6 +1,6 @@ #!./perl -# $Header: subval.t,v 4.0 91/03/20 01:49:40 lwall Locked $ +# $RCSfile: subval.t,v $$Revision: 4.0.1.1 $$Date: 91/11/05 18:42:31 $ sub foo1 { 'true1'; @@ -102,7 +102,7 @@ print $x eq '1:2:3' ? "ok 26\n" : "not ok 26 $x\n"; sub somesub { local($num,$P,$F,$L) = @_; ($p,$f,$l) = caller; - print "$p:$f:$l" eq "$P:$F:$L" ? "ok $num\n" : "not ok $num\n"; + print "$p:$f:$l" eq "$P:$F:$L" ? "ok $num\n" : "not ok $num $p:$f:$l ne $P:$F:$L\n"; } &somesub(27, 'main', __FILE__, __LINE__); |