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:
parent
d28168419e
commit
3f817eb428
|
@ -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;
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
||||
|
|
|
@ -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);
|
||||
|
||||
|
|
Loading…
Reference in a new issue