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