diff options
| author | Jan Dubois <jand@activestate.com> | 1999-07-29 00:01:42 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-29 07:30:35 +0000 |
| commit | a8c64e16189dfe2e24fc49985e599569616a0486 (patch) | |
| tree | 2e9392de4aceedee28972a987c95e93735252b7c /win32 | |
| parent | 94e33e97c24257d3d38c398f932f24d466cb0feb (diff) | |
| download | perl-a8c64e16189dfe2e24fc49985e599569616a0486.tar.gz | |
win32/bin/pl2bat.pl doesn't work correctly
Message-ID: <37aa5f9b.12941448@smtp1.ibm.net>
p4raw-id: //depot/perl@3829
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/bin/pl2bat.pl | 24 |
1 files changed, 14 insertions, 10 deletions
diff --git a/win32/bin/pl2bat.pl b/win32/bin/pl2bat.pl index d3a9c0b779..cdbac6f273 100644 --- a/win32/bin/pl2bat.pl +++ b/win32/bin/pl2bat.pl @@ -251,16 +251,20 @@ be used. One approach is: - #!perl - while( <DATA> ) { - last if /^__END__$/; - [...] - } - __END__ - lines of data - to be processed - __END__ - :endofperl + . #!perl + . while( <DATA> ) { + . last if /^__END__$/; + . [...] + . } + . __END__ + . lines of data + . to be processed + . __END__ + . :endofperl + +The dots in the first column are only there to prevent F<cmd.exe> to interpret +the C<:endofperl> line in this documentation. Otherwise F<pl2bat.bat> itself +wouldn't work. See the previous item. :-) =item The batch file always "succeeds" |