use strict ;
use DB_File ;
- our ($filename, %h);
+ my ($filename, %h);
$filename = "tree" ;
unlink $filename ;
use strict ;
use DB_File ;
- our ($filename, $x, %h, $status, $key, $value);
+ my ($filename, $x, %h, $status, $key, $value);
$filename = "tree" ;
unlink $filename ;
use strict ;
use DB_File ;
- our ($filename, $x, %h);
+ my ($filename, $x, %h);
$filename = "tree" ;
use strict ;
use DB_File ;
- our ($filename, $x, %h, $found);
+ my ($filename, $x, %h, $found);
$filename = "tree" ;
use strict ;
use DB_File ;
- our ($filename, $x, %h, $found);
+ my ($filename, $x, %h, $found);
$filename = "tree" ;
use DB_File ;
use Fcntl ;
- our ($filename, $x, %h, $st, $key, $value);
+ my ($filename, $x, %h, $st, $key, $value);
sub match
{