Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Bug in pl2bat if last line of input is a comment that does not en d with a newline #201

p5pRT opened this issue Jul 16, 1999 · 1 comment


Copy link

p5pRT commented Jul 16, 1999

Migrated from (status was 'resolved')

Searchable as RT1007$

Copy link

p5pRT commented Jul 16, 1999


The pl2bat script is used on Microsoft Windows systems to
create a batch file from a Perl file.
There is a bug in pl2bat (i.e. pl2bat.bat, generated from
that occurs when the last line in the input file is a comment
that does not end with a newline character.
This bug occurs in all versions I have examined, including the Beta version

Here is a small testfile that will demonstrate the problem​:

#!/usr/bin/perl -w
# This file runs successfully when invoked via​: perl thisfile
# But it will fail with a syntax error if you first run​: pl2bat thisfile
# and then say​: thisfile

print "If you see this it is OK\n";

# Because the last line is a comment, and it does not end with a newline
# it "captures​: the __END__ statement, causing a syntax error.
# The fix is simple -- have pl2bat insert a newline before
# writing the __END__ line.

# The last line in this file is a comment that does not end with a newline

In the generated file you will see near the end​:
# The last line in this file is a comment that does not end with a

and so the __END__ marker is not found.

Here is my suggested bug fix. In add a newline
character just before __END__, i.e. change from​:
my $tail = "__END__\n​:endofperl\n";
my $tail = "\n__END__\n​:endofperl\n";

Perl Info

Site configuration information for perl 5.00502:

Summary of my perl5 (5.0 patchlevel 5 subversion 02) configuration:
    osname=MSWin32, osvers=4.0, archname=MSWin32-x86-object
    hint=recommended, useposix=true, d_sigaction=undef
    usethreads=undef useperlio=undef d_sfio=undef
    cc='cl.exe', optimize='-O2 -MD -DNDEBUG -TP -GX', gccversion=
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=undef, longlongsize=8, d_longdbl=define, longdblsize=10
    alignbytes=8, usemymalloc=n, prototype=define
  Linker and Libraries:
    ld='link', ldflags ='-nologo -nodefaultlib -release -machine:x86'
    libs= oldnames.lib kernel32.lib user32.lib gdi32.lib  winspool.lib
comdlg32.lib advapi32.lib shell32.lib ole32.lib  oleaut32.lib netapi32.lib
uuid.lib wsock32.lib mpr.lib winmm.lib  version.lib odbc32.lib odbccp32.lib
    libc=C:\Perl\lib\core\PerlCRT.lib, so=dll, useshrplib=yes,
  Dynamic Linking:
    dlsrc=dl_win32.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags=' ', lddlflags='-dll -nologo -nodefaultlib -release

Locally applied patches:

@INC for perl 5.00502:

Environment for perl 5.00502:
    HOME (unset)
    LANG (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PERL5DB=BEGIN { require 'C:\Program Files\ActiveState Perl
Debugger\' }
    PERL_BADLANG (unset)
    SHELL (unset)

Hopefully helpfully yours,

Steve Tolkin      617-563-0516 
Fidelity Investments   82 Devonshire St. R24D    Boston MA 02109
There is nothing so practical as a good theory.  Comments are by me, 
not Fidelity Investments, its subsidiaries or affiliates.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
None yet

No branches or pull requests

1 participant