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>
-#! /usr/bin/perl -W
+#! /usr/bin/perl
#
# feedlog.pl
#
push(@INC, dirname($0));
}
use strict;
+use warnings;
use NewsStats;
-#! /usr/bin/perl -W
+#! /usr/bin/perl
#
# gatherstats.pl
#
push(@INC, dirname($0));
}
use strict;
+use warnings;
use NewsStats qw(:DEFAULT :TimePeriods ListNewsgroups ParseHierarchies ReadGroupList);
-#! /usr/bin/perl -W
+#! /usr/bin/perl
#
# groupstats.pl
#
push(@INC, dirname($0));
}
use strict;
+use warnings;
use NewsStats qw(:DEFAULT :TimePeriods :Output :SQLHelper ReadGroupList);
-#! /usr/bin/perl -W
+#! /usr/bin/perl
#
# install.pl
#
push(@INC, dirname($0).'/..');
}
use strict;
+use warnings;
use NewsStats qw(:DEFAULT);