disable diagnostics
This commit is contained in:
parent
db674670d1
commit
8078766a1a
@ -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) {
|
||||
|
Loading…
x
Reference in New Issue
Block a user