diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2003-05-05 04:03:10 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2003-05-05 04:03:10 +0000 |
| commit | d5f92636cfba103135e2664cae24bf7c4797b719 (patch) | |
| tree | 672286971936a34a089c9b9345d805eb6acf04ce /ext/Storable | |
| parent | 41a750113098fc9eda8bdc631867506ebba228f4 (diff) | |
| download | perl-d5f92636cfba103135e2664cae24bf7c4797b719.tar.gz | |
None of that "our" stuff here, please.
p4raw-id: //depot/perl@19413
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/t/tied.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Storable/t/tied.t b/ext/Storable/t/tied.t index 05bcf32059..662d9ae18a 100644 --- a/ext/Storable/t/tied.t +++ b/ext/Storable/t/tied.t @@ -211,7 +211,7 @@ ok 22, $FAULT::fault == 2; { package P; use Storable qw(freeze thaw); - our ($a,$b); + use vars qw($a $b); $b = "not ok "; sub TIESCALAR { bless \$a } sub FETCH { "ok " } tie $a, P; my $r = thaw freeze \$a; $b = $$r; |