use DXUtil;
use DXLog;
use Julian;
-use FileHandle;
+use IO::File;
use Carp;
use strict;
# 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";
$eval = qq(
my \$c;
my \$ref;
- for (\$c = \$ #in; \$c >= 0; \$c--) {
+ for (\$c = \$#in; \$c >= 0; \$c--) {
\$ref = \$in[\$c];
if ($search) {
\$count++;