| [vhffs-dev] [svn] commit: r155 - /trunk/vhffs-listengine/src/listengine.pl |
[ Thread Index |
Date Index
| More vhffs.org/vhffs-dev Archives
]
Author: jd
Date: Sun Feb 12 15:53:01 2006
New Revision: 155
Log:
fix a bug in a regexp: quote the var before trying to match (problem with var with the - char otherwise)
Modified:
trunk/vhffs-listengine/src/listengine.pl
Modified: trunk/vhffs-listengine/src/listengine.pl
==============================================================================
--- trunk/vhffs-listengine/src/listengine.pl (original)
+++ trunk/vhffs-listengine/src/listengine.pl Sun Feb 12 15:53:01 2006
@@ -414,7 +414,7 @@
#Add prefix if not null
my $subject=$mail->get('Subject');
my $prefix=$list->get_prefix;
- unless ($subject=~ /^.*\[$prefix\].*$/)
+ unless ($subject=~ /^.*\[\Q$prefix\].*$/)
{
$mail->replace( 'Subject' , "[".$list->get_prefix."]" . " " . $mail->get('Subject') ) if( length( $list->get_prefix ) > 0 );
}