[Rt-commit] r8861 - rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email/Auth

[ruz at bestpractical.com]

Author: ruz
Date: Fri Aug 31 09:26:34 2007
New Revision: 8861

Modified:
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email/Auth/GnuPG.pm

Log:
* function may return wo arguments

Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email/Auth/GnuPG.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email/Auth/GnuPG.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Interface/Email/Auth/GnuPG.pm	Fri Aug 31 09:26:34 2007
@@ -177,7 +177,7 @@
     $RT::Logger->error("Couldn't decrypt a message: have no private key");
 
     my $address = (RT::Interface::Email::ParseSenderAddressFromHead( $args{'Message'}->head ))[0];
-    my $status = RT::Interface::Email::SendEmailUsingTemplate(
+    my ($status) = RT::Interface::Email::SendEmailUsingTemplate(
         To        => $address,
         Template  => 'Error: no private key',
         Arguments => {
@@ -203,7 +203,7 @@
     $RT::Logger->error("Couldn't process a message: ". join ', ', @bad_data_messages );
 
     my $address = (RT::Interface::Email::ParseSenderAddressFromHead( $args{'Message'}->head ))[0];
-    my $status = RT::Interface::Email::SendEmailUsingTemplate(
+    my ($status) = RT::Interface::Email::SendEmailUsingTemplate(
         To        => $address,
         Template  => 'Error: bad GnuPG data',
         Arguments => {