Re: Mod Perl Code failures

[prev] [thread] [next] [Date index for 2005/05/26]

On Wed, 2005-05-25 at 18:12, Stas Bekman wrote:
[snip]
> Index: ModPerl-Registry/lib/ModPerl/RegistryCooker.pm
> ===================================================================
> --- ModPerl-Registry/lib/ModPerl/RegistryCooker.pm      (revision 171124)
> +++ ModPerl-Registry/lib/ModPerl/RegistryCooker.pm      (working copy)
> @@ -645,7 +645,7 @@
>   #########################################################################
> 
>   sub strip_end_data_segment {
> -    ${ +shift->{CODE} } =~ s/__(END|DATA)__(.*)//s;
> +    ${ +shift->{CODE} } =~ s/^__(END|DATA)__(.*)//ms;
>   }
> 

Sorry for the random, and probably naive question. What does the + in
front of the shift do?

        -- 
        Regards,

Iain