diff options
| author | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1995-03-12 22:32:14 -0800 |
| commit | 748a93069b3d16374a9859d1456065dd3ae11394 (patch) | |
| tree | 308ca14de9933a313dceacce8be77db67d9368c7 /t/op/ref.t | |
| parent | fec02dd38faf8f83471b031857d89cb76fea1ca0 (diff) | |
| download | perl-748a93069b3d16374a9859d1456065dd3ae11394.tar.gz | |
Perl 5.001perl-5.001
[See the Changes file for a list of changes]
Diffstat (limited to 't/op/ref.t')
| -rwxr-xr-x | t/op/ref.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index 73a54ff3c8..38e34f002b 100755 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -177,7 +177,7 @@ print $foo eq foo ? "ok 37\n" : "not ok 37\n"; sub BASEOBJ'doit { local $ref = shift; die "Not an OBJ" unless ref $ref eq OBJ; - $ref->{shift}; + $ref->{shift()}; } package UNIVERSAL; |