Bug fix for IMAP::Admin perl module

[Edward Rudd]

Cool, Thanks...

On Thu, 2002-12-19 at 10:26, Ron Roskens wrote:
> What you really want is this:
> 
>     return unless $d{-text} =~ s/^\"*\Q$mbx\E\"*\s+//;
> 
> Using the \Q and \E disables regex expansions between them.
> 
> On 19 Dec 2002, Edward Rudd wrote:
> 
> > Here's a quick hack to fix a bug with the IMAP::Admin perl module in
> > cyrus IMAPD version 2.1.11
> > on line 269:
> > 	return unless $d{-text} =~ s/^\"*$mbx\"*\s+//;
> > the regex causes a perl error with folder names with +s in them. ie "C
> > And C++"
> >
> > I *hacked it* thusly..
> > 	my $tmp = $mbx;
> > 	$tmp =~ s/\+/\\++/g;
> > 	return unless $d{-text} =~ s/^\"*$tmp\"*\s+//;
> > There are probably more regex keywords that need to be escaped, but that
> > fixed the immediate problem for me...
> > --
> > Edward Rudd <eddie at omegaware.com>
> >
> >
-- 
Edward Rudd <eddie at omegaware.com>