Re: Mod Perl Code failures

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

> >   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

Check out "perldoc perlref" (search for "disambiguate").  Basically, the +
just makes sure that perl interprets the { in front of shift as a hash ref
and not as the start of a block of code.

-Joe