bin: Drop 'use diagnostics;' from all Perl scripts.

diff --git a/dctrl-mailbox b/dctrl-mailbox
index c5c65d74b64db3089028e7952164454e302567a2..851ea0aed8a7279ccb58fca3bb12a128a0f20b15 100755 (executable)
--- a/dctrl-mailbox
+++ b/dctrl-mailbox
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 use Date::Format;
 

diff --git a/expandvars b/expandvars
index a7ea667e4b9dcfa05fb74401c7817f767e32c445..68f56c8baf9fa6d77a25030e3f86faab5038b7cf 100755 (executable)
--- a/expandvars
+++ b/expandvars
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 use Getopt::Long;
 

diff --git a/get-corr b/get-corr
index a1edfdafef70c48e7c30bc1bbb953047af214405..03f5f31ead04cfa650d09713b7dfd394829fb617 100755 (executable)
--- a/get-corr
+++ b/get-corr
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 
 use Mail::Util qw(read_mbox);

diff --git a/mailsort b/mailsort
index e13bc17fa8ebaf3a999bfce70d66d5d89793de30..cca0d641c8de92962b6bd154957463ca9399c660 100755 (executable)
--- a/mailsort
+++ b/mailsort
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 use Date::Parse;
 

diff --git a/taskbot b/taskbot
index c17621f245434ae47d11a3a9e1aa9333f114246f..5e4007ca37fb42e3484e10838821629ffebab713 100755 (executable)
--- a/taskbot
+++ b/taskbot
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 
 use Net::IRC;

diff --git a/verify-status b/verify-status
index e3faa0cdaedec01d108dc6feee919e88a72a0452..117386bbb9554941c3b74a034dff90a37e542b5f 100755 (executable)
--- a/verify-status
+++ b/verify-status
@@ -1,5 +1,4 @@
 #! /usr/bin/perl -w
-use diagnostics;
 use strict;
 
 my $verbose = 0;