diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2001-11-24 11:41:41 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-24 14:58:52 +0000 |
| commit | 07200f1b93ada43b41fbed10c30b4e657f5b0c60 (patch) | |
| tree | 6d0acf536f300e255a5163d583f16f10facd7345 /ext/DB_File/t/db-btree.t | |
| parent | 7d61c391344623a8b5661bec03f6c423ea3c8b1b (diff) | |
| download | perl-07200f1b93ada43b41fbed10c30b4e657f5b0c60.tar.gz | |
DB_File 1.800
Message-ID: <AIEAJICLCBDNAAOLLOKLIEPMDFAA.paul_marquess@yahoo.co.uk>
p4raw-id: //depot/perl@13233
Diffstat (limited to 'ext/DB_File/t/db-btree.t')
| -rwxr-xr-x | ext/DB_File/t/db-btree.t | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/ext/DB_File/t/db-btree.t b/ext/DB_File/t/db-btree.t index 7e0bb2bc6b..62cccd706e 100755 --- a/ext/DB_File/t/db-btree.t +++ b/ext/DB_File/t/db-btree.t @@ -619,7 +619,7 @@ unlink $Dfile1 ; use warnings ; use strict ; - use vars qw( @ISA @EXPORT) ; + our (@ISA, @EXPORT); require Exporter ; use DB_File; @@ -957,7 +957,7 @@ EOM use strict ; use DB_File ; - use vars qw($filename %h ) ; + our ($filename, %h); $filename = "tree" ; unlink $filename ; @@ -1009,7 +1009,7 @@ EOM use strict ; use DB_File ; - use vars qw($filename $x %h $status $key $value) ; + our ($filename, $x, %h, $status, $key, $value); $filename = "tree" ; unlink $filename ; @@ -1065,7 +1065,7 @@ EOM use strict ; use DB_File ; - use vars qw($filename $x %h ) ; + our ($filename, $x, %h); $filename = "tree" ; @@ -1114,9 +1114,9 @@ EOM use strict ; use DB_File ; - use vars qw($filename $x %h $found) ; + our ($filename, $x, %h, $found); - my $filename = "tree" ; + $filename = "tree" ; # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; @@ -1149,9 +1149,9 @@ EOM use strict ; use DB_File ; - use vars qw($filename $x %h $found) ; + our ($filename, $x, %h, $found); - my $filename = "tree" ; + $filename = "tree" ; # Enable duplicate records $DB_BTREE->{'flags'} = R_DUP ; @@ -1185,7 +1185,7 @@ EOM use DB_File ; use Fcntl ; - use vars qw($filename $x %h $st $key $value) ; + our ($filename, $x, %h, $st, $key, $value); sub match { |