From: Thomas Hochstein <thh@inter.net>
Date: Mon, 2 Sep 2013 10:59:45 +0000 (+0200)
Subject: Merge branch 'thh-checkinput' into next
X-Git-Tag: 0.01~1^2~4
X-Git-Url: https://code.th-h.de/?p=usenet%2Fnewsstats.git;a=commitdiff_plain;h=5cfcb1c0610d925a14cc01e45de4af1b36d1b637;hp=c30822b48b896836735cee5144cbfa3c3703001d

Merge branch 'thh-checkinput' into next

* thh-checkinput:
  Check for invalid newsgroup names.
---

diff --git a/feedlog.pl b/feedlog.pl
index 636de83..80dbbe0 100755
--- a/feedlog.pl
+++ b/feedlog.pl
@@ -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;
 
diff --git a/gatherstats.pl b/gatherstats.pl
index 4c539f1..160c115 100755
--- a/gatherstats.pl
+++ b/gatherstats.pl
@@ -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);
 
diff --git a/groupstats.pl b/groupstats.pl
index 8b93559..a6e54ba 100755
--- a/groupstats.pl
+++ b/groupstats.pl
@@ -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);
 
diff --git a/install/install.pl b/install/install.pl
index 4069bf5..59920fa 100755
--- a/install/install.pl
+++ b/install/install.pl
@@ -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);