add kvm-img wrapper script

[bin.git] / get-corr

diff --git a/get-corr b/get-corr
index a1edfdafef70c48e7c30bc1bbb953047af214405..d7b889703e80026d152701a45dad458b97117cae 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;