untested git support

[bin.git] / get-corr

diff --git a/get-corr b/get-corr
old mode 100644 (file)
new mode 100755 (executable)
index a1edfda..d7b8897
--- 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;