changed all instances of FileHandle to IO::File

[spider.git] / perl / Geomag.pm

diff --git a/perl/Geomag.pm b/perl/Geomag.pm
index d7cdc19c12a79b8faf185f74f6e44076b282343b..225cb542f087155c84bbe7c2cd9a487dc20bbc10 100644 (file)
--- a/perl/Geomag.pm
+++ b/perl/Geomag.pm
@@ -14,7 +14,7 @@ use DXVars;
 use DXUtil;
 use DXLog;
 use Julian;
-use FileHandle;
+use IO::File;
 use Carp;
 
 use strict;
@@ -44,7 +44,7 @@ sub init
 # write the current data away
 sub store
 {
-       my $fh = new FileHandle;
+       my $fh = new IO::File;
        open $fh, "> $param" or confess "can't open $param $!";
        print $fh "# Geomagnetic data parameter file last mod:", scalar gmtime, "\n";
        print $fh "\$date = $date;\n";