Subject: | Bug report or is it? |
Date: | Thu, 17 Jan 2008 13:57:30 +0100 |
To: | bug-par [...] rt.cpan.org |
From: | JanPeter van der Velden <jpvdv [...] solcon.nl> |
Dear sir,
I have a bug (or is it?) using pp to pack and compile a perl script on
Win-32. In it's .pl form it works fine. But compiled to .exe it exits
in mid-flight without error or waring.
This is the set-up
I am using PAR-588 v. 0.959, perl 5.8.8 on Windows XP
Recreating the code that behaves in this manner:
-------------code---
my $valline = qq{VALUES ( 'Qk02DAAAAAAAADYAAAAoAAAAIAAAACAAAAABABgAAAAAAAAMAAASCwAAEgsAAAAAAAAAAAAA/wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD/gICAgICAgICA/wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD/gICAgICAgICAAAAAAAAAAAAAgICA/wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD//wD/AAAAAAAAAAAAgICAAAAA/f39AAAAgICA/wD//wD//wD//wD/gICAgICAgICA/wD//wD//wD//wD/gICAgICAgICA/wD//wD//wD//wD/gICAgICAgICA/wD//wD//wD/AAAA/f39AAAAgICAAAAA/f39AAAAgICA/wD//wD//wD/AAAAAAAAAAAAgICAgICA/wD//wD/AAAAAAAAAAAAgICAgICA/wD//wD/AAAAAAAAAAAAgICAgICA/wD//wD/AAAA/f39AAAAgICAAAAA/f39AAAAgICAgICAgICAAAAA/f39/f39/f39AAAAgICAgICAAAAA/f39/f39/f39AAAAgICAgICAAAAA/f39/f39/f39AAAAgICAgICAgICAAAAA/f39AAAAgICAAAAA/f39AAAAAA==AAAAAAAAAAAAAAD9/f39/f39/f0AAAAAAAAAAAAAAAD9/f39/f39/f0AAAAAAAAAAAAAAAD9/f39/f39/f0AAAAAAAAAAAAAAAAAAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f0AAACAgIAAAAD9/f0AAAD9/f39/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAAD9/f39/f0AAAD9/f39/f39/f0AAA==AP39/f39/f39/QAAAP39/QAAAICAgAAAAP39/QAAAP39/f39/f39/QAAAP39/f39/f39/QAAAP39/f39/QAAAP39/f39/f39/QAAAP39/f39/QAAAP39/f39/f39/QAAAP39/f39/f39/QAAAP39/QAAAICAgAAAAP39/QAAAAAAAAAAAAAAAAAAAP39/f39/f39/QAAAAAAAAAAAAAAAP39/f39/f39/QAAAAAAAAAAAAAAAP39/f39/f39/QAAAAAAAAAAAAAAAAAAAP39/QAAAICAgAAAAP39/QAAAICAgP8A//8A/wAAAP39/f39/f39/QAAAP8A//8A/wAAAP39/f39/f39/QAAAP8A//8A/wAAAP39/f39/f39/QAAAP8A//8A//8A/wAAAP39/QAAAICAgAAAAP39/QAAAICAgP8A//8A//8A/wAAAAAAAAAAAP8A//8A//8A//8A/wAAAAAAAAAAAP8A//8A//8A//8A/wAAAAAAAAAAAP8A//8A//8A//8A/wAAAP39/QAAAICAgAAAAP39/QAAAICAgP8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A/wAAAP39/QAAAICAgAAAAAAAAAAAAP8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A//8A/wAAAAAAAAAAAP8A//8A/==a')};
print length($valline),"\n";
my @qval = (); # this is for the quote values
push(@qval, $+) while $valline =~ m{((N?'(?:[^']|'')*')|([^',]*)),? ?}g;
print "end";
---- code --
This code wil run as .pl but as .exe the print "end" will not be
reached.
The string to be regex-ed is a line from a SQL insert script with in
this case base64 encoded bitmap info. If the length of this $valline =
3552 bytes, it will run in .exe as well, if it is 3553 it won't,
stopping in mid air...
However replacing the my $valline ... line by:
my $valline = ")" x 5000;
will make it run as well. So it is the string in combination with the
length.... Something is significant to the PAR environment, but isn't
to the live perl environment. What can it be ...?
Kind regards,
Jan Peter van der Velden