disable diagnostics

This commit is contained in:
Matthew Slowe 2024-01-07 17:02:16 +00:00
parent db674670d1
commit 8078766a1a

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl -w
use strict;
use diagnostics;
# use diagnostics;
use DBI;
use POSIX;
use Data::Dumper;
@ -15,7 +15,6 @@ my $getdata_st = $db->prepare("select strftime('2000-%m-%dT%H:%M:%S.000Z', times
$years_st->execute($station);
my @years = @{$years_st->fetchall_arrayref};
print STDERR Dumper(@years);
my %data;
foreach my $y_ref (@years) {