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
