in reply to My day with Damian Conway
I never saw any great problem with this:
sub Unindent { my $unindent = shift; $unindent =~ s/^[ \t]+//gm; return $unindent; } ... $message = Unindent <<" MESSAGE"; A fatal die was trapped by the $scriptname die nice routine: Time: $datetime List name: $list_name Script name: $scriptname Package: $package File: $file Line Number: $line Error Message: $message MESSAGE print $message; ....
cheers
tachyon </code>
|
---|
Replies are listed 'Best First'. | |
---|---|
Unindenting here-docs (Re: My day with Damian Conway)
by tye (Sage) on Jan 11, 2002 at 21:09 UTC | |
by tachyon (Chancellor) on Jan 31, 2002 at 12:43 UTC | |
by tye (Sage) on Jan 31, 2002 at 16:41 UTC |
In Section
Meditations