Change handling of warnings.

Replace 'perl -W' by 'use warnings;'.
The latter is preferred, and '-W'
(instead of '-w') was causing problems with
warnings in DB::mysql::GetInfo.pm.

Signed-off-by: Thomas Hochstein <thh@inter.net>
This commit is contained in:
Thomas Hochstein 2013-09-02 11:15:12 +02:00
parent d28168419e
commit 3f817eb428
4 changed files with 8 additions and 4 deletions

View file

@ -1,4 +1,4 @@
#! /usr/bin/perl -W
#! /usr/bin/perl
#
# feedlog.pl
#
@ -18,6 +18,7 @@ BEGIN {
push(@INC, dirname($0));
}
use strict;
use warnings;
use NewsStats;

View file

@ -1,4 +1,4 @@
#! /usr/bin/perl -W
#! /usr/bin/perl
#
# gatherstats.pl
#
@ -18,6 +18,7 @@ BEGIN {
push(@INC, dirname($0));
}
use strict;
use warnings;
use NewsStats qw(:DEFAULT :TimePeriods ListNewsgroups ParseHierarchies ReadGroupList);

View file

@ -1,4 +1,4 @@
#! /usr/bin/perl -W
#! /usr/bin/perl
#
# groupstats.pl
#
@ -18,6 +18,7 @@ BEGIN {
push(@INC, dirname($0));
}
use strict;
use warnings;
use NewsStats qw(:DEFAULT :TimePeriods :Output :SQLHelper ReadGroupList);

View file

@ -1,4 +1,4 @@
#! /usr/bin/perl -W
#! /usr/bin/perl
#
# install.pl
#
@ -18,6 +18,7 @@ BEGIN {
push(@INC, dirname($0).'/..');
}
use strict;
use warnings;
use NewsStats qw(:DEFAULT);