thh/newsstats
1
0
Fork 0
Code Issues 4 Pull requests Packages Projects Releases Activity

Change handling of warnings.

Browse source 
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
feedlog.pl
View file

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

3
gatherstats.pl
View file

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

3
groupstats.pl
View file

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

3
install/install.pl
View file

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