changed all instances of FileHandle to IO::File

[spider.git] / perl / Prefix.pm

diff --git a/perl/Prefix.pm b/perl/Prefix.pm
index 8ea62b87fbda9e742fd0a481b925e753a9b2c65e..04dcb4b2241e4f9042e8fb5ffda691c0d0ded2c7 100644 (file)
--- a/perl/Prefix.pm
+++ b/perl/Prefix.pm
@@ -8,6 +8,7 @@
 
 package Prefix;
 
+use IO::File;
 use Carp;
 use DXVars;
 use DB_File;
@@ -40,7 +41,7 @@ sub load
 sub store
 {
        my ($k, $l);
-       my $fh = new FileHandle;
+       my $fh = new IO::File;
        my $fn = "$main::data/prefix_data.pl";
   
        confess "Prefix system not started" if !$db;