chiark / gitweb /
bin: Remove obsolete hard-coding of cjw44 and /home/httpd.
[bin.git] / get-corr
index a1edfda..d7b8897 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);
@@ -41,7 +40,7 @@ foreach my $folder (@folders)
            }
            if ($scan)
            {
-               if ($line =~ /cjw44/)
+               if ($line =~ /cjw44|cjwatson/)
                {
                    $print_from = 1;
                    last;