[vhffs-dev] [1160] fixed a bug in moderation email

[subversion@xxxxxxxxxxxxx]

Revision: 1160
Author:   gradator
Date:     2008-02-24 01:45:47 +0000 (Sun, 24 Feb 2008)

Log Message:
-----------
fixed a bug in moderation email

Modified Paths:
--------------
    branches/vhffs-4.1/vhffs-listengine/src/listengine.pl
    trunk/vhffs-listengine/src/listengine.pl


Modified: branches/vhffs-4.1/vhffs-listengine/src/listengine.pl
===================================================================
--- branches/vhffs-4.1/vhffs-listengine/src/listengine.pl	2008-02-17 19:12:51 UTC (rev 1159)
+++ branches/vhffs-4.1/vhffs-listengine/src/listengine.pl	2008-02-24 01:45:47 UTC (rev 1160)
@@ -195,7 +195,7 @@
     my $header;
     my $email;
     my ( $message_id  ) =  ($mail->get( 'Message-Id' ) =~ /<(.+)>/);
-    my $from = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
+    my ( $from ) = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
     my $directory = get_moderation_dir( $list );
     my $subject = $mail->get('Subject');
 

Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl	2008-02-17 19:12:51 UTC (rev 1159)
+++ trunk/vhffs-listengine/src/listengine.pl	2008-02-24 01:45:47 UTC (rev 1160)
@@ -195,7 +195,7 @@
     my $header;
     my $email;
     my ( $message_id  ) =  ($mail->get( 'Message-Id' ) =~ /<(.+)>/);
-    my $from = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
+    my ( $from ) = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
     my $directory = get_moderation_dir( $list );
     my $subject = $mail->get('Subject');