diff options
Diffstat (limited to 'lib/DBM_Filter/t/int32.t')
-rw-r--r-- | lib/DBM_Filter/t/int32.t | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/DBM_Filter/t/int32.t b/lib/DBM_Filter/t/int32.t index 90b209bb85..86e68dcdea 100644 --- a/lib/DBM_Filter/t/int32.t +++ b/lib/DBM_Filter/t/int32.t @@ -21,11 +21,11 @@ BEGIN { }; BEGIN { use_ok('Fcntl') }; -unlink <Op_dbmx*>; -END { unlink <Op_dbmx*>; } +unlink <intOp_dbmx*>; +END { unlink <intOp_dbmx*>; } my %h1 = () ; -my $db1 = tie(%h1, $db_file,'Op_dbmx', O_RDWR|O_CREAT, 0640) ; +my $db1 = tie(%h1, $db_file,'intOp_dbmx', O_RDWR|O_CREAT, 0640) ; ok $db1, "tied to $db_file"; @@ -72,7 +72,7 @@ undef $db1; # read the dbm file without the filter my %h2 = () ; -my $db2 = tie(%h2, $db_file,'Op_dbmx', O_RDWR|O_CREAT, 0640) ; +my $db2 = tie(%h2, $db_file,'intOp_dbmx', O_RDWR|O_CREAT, 0640) ; ok $db2, "tied to $db_file"; |