diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-23 21:19:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-23 21:19:51 +0000 |
| commit | f9b690dc98235f583fca7fd889f3d2b89526ce59 (patch) | |
| tree | 01bf64ac0d3180f3e3f319a08a49ae35c51a7155 | |
| parent | 7eb43e029e176f4ffee0d8c749b60e92343e3503 (diff) | |
| download | perl-f9b690dc98235f583fca7fd889f3d2b89526ce59.tar.gz | |
Use the new use vars feature.
p4raw-id: //depot/perl@10179
| -rw-r--r-- | t/lib/b-stash.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/lib/b-stash.t b/t/lib/b-stash.t index b5bfdf8dc7..d0ae76a3dc 100644 --- a/t/lib/b-stash.t +++ b/t/lib/b-stash.t @@ -39,7 +39,7 @@ if ($Is_VMS) { $a =~ s/-uVMS,-uVMS::Filespec,//; $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent } -$OS2::is_aout||=0; # to thwart warning (OS2 special extra magic variable) +use vars '$OS2::is_aout'; if (($Config{static_ext} eq ' ' || ($Config{static_ext} eq 'Socket' && $Is_VMS)) && !($^O eq 'os2' and $OS2::is_aout) |