Escape @ in mail address for quotacheck

* This caused an error on newer perl

diff --git a/quotacheck b/quotacheck
index 2d638d1..70306a9 100755 (executable)
--- a/quotacheck
+++ b/quotacheck
@@ -237,7 +237,7 @@ sub email_notify {
                $_ =~ s/\$CRIT{(\w+)}/$warn{$user}{$1} ? " (APPROACHING QUOTA)" : ""/mge;
        }
        #print join('', @msg);
                $_ =~ s/\$CRIT{(\w+)}/$warn{$user}{$1} ? " (APPROACHING QUOTA)" : ""/mge;
        }
        #print join('', @msg);

-       open(MAIL, "| mail -s 'Approaching quota limit at HCoop' -a 'From: admins\@hcoop.net' -b 'admins@hcoop.net' '$user\@hcoop.net'");
+       open(MAIL, "| mail -s 'Approaching quota limit at HCoop' -a 'From: admins\@hcoop.net' -b 'admins\@hcoop.net' '$user\@hcoop.net'");

        { no warnings; print main::MAIL join('', @msg); }
        close MAIL;
 }
        { no warnings; print main::MAIL join('', @msg); }
        close MAIL;
 }