diff options
Diffstat (limited to 'bin/perload')
| -rwxr-xr-x | bin/perload | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/bin/perload b/bin/perload index a859c22..7ef7137 100755 --- a/bin/perload +++ b/bin/perload @@ -8,15 +8,15 @@ # This perl script is its own manual page [generated by wrapman] # -# $Id: perload,v 3.0.1.1 1994/10/29 15:45:36 ram Exp $ +# $Id: perload,v 3.0.1.1 1994/10/29 15:45:36 ram Exp ram $ # -# Copyright (c) 1991-1993, Raphael Manfredi +# Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi # # You may redistribute only under the terms of the Artistic Licence, # as specified in the README file that comes with the distribution. # You may reuse parts of this distribution only within the terms of # that same Artistic Licence; a copy of which may be found at the root -# of the source tree for dist 3.0. +# of the source tree for dist 4.0. # # $Log: perload,v $ # Revision 3.0.1.1 1994/10/29 15:45:36 ram @@ -273,8 +273,7 @@ if (@Data > 0) { : unless seek(main'DATA, $pos, 0); : local($/) = "\n}"; : local($body) = scalar(<main'DATA>); -: local($*) = 1; -: die "End of file found while loading $_[0].\n" unless $body =~ /^\}$/; +: die "End of file found while loading $_[0].\n" unless $body =~ /^\}$/m; EOC if ($opt_t) { print &q(<<'EOC'); @@ -449,6 +448,8 @@ sub emit_init { :# This perl program uses dynamic loading [generated by perload] :# : +:$ENV{LC_ALL} = 'C'; +: EOC $init_emitted = 1; } @@ -460,8 +461,7 @@ sub flush_comment { sub q { local($_) = @_; - local($*) = 1; - s/^://g; + s/^://gm; $_; } |