[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
Revision: 1325
Author: gradator
Date: 2009-01-11 19:35:26 +0100 (Sun, 11 Jan 2009)
Log Message:
-----------
ooops
Modified Paths:
--------------
trunk/vhffs-listengine/src/listengine.pl
Modified: trunk/vhffs-listengine/src/listengine.pl
===================================================================
--- trunk/vhffs-listengine/src/listengine.pl 2009-01-11 18:34:33 UTC (rev 1324)
+++ trunk/vhffs-listengine/src/listengine.pl 2009-01-11 18:35:26 UTC (rev 1325)
@@ -144,7 +144,7 @@
}
else {
my ( $from ) = ( $mail->get('From') =~ /(([\+\.a-zA-Z_\-0-9^\s]+)@([\.a-zA-Z_\-0-9^\s]+)\.(\w+))/);
- my $from = lc $from;
+ $from = lc $from;
foreach my $adr (@tos)
{