[HWX] Re: Can I pass off PerlBin as perlcompiler.sf.net? (and a small contribution)

[Graciliano M. P. \(V. Sites\) <gm...@vi...>]

> Hi.
> I've compiled perl5.6.1 with the changes you made
> to runperl.c and miniperlmain.c
> and after realinzing I need a binary called hwxperl,
> I edited the Makefile.
You can change PerlBin (perlbin.pl) to use any name for the binary. Note,
that this perlbin was for Win32, since it looks for hwxperl.exe, for other
OS you just cut the .exe.

> I was able to successfully use PerlBin.
Cool!

>
> However, now I have a question,
> can I have permission to abstract PerlBin into
> the perlcompiler project?
> ( i have read Licence, but thought I'd give you a heads up )
You are totally free to use it in your project. I just ask to put my name in
the source and some reference to the HWX project in SF will be good too. And
of course, kip this part of your project free and Open Source. When it's
done let me know how is doing your project :-)

Will be good if you improve PerlBin with new things. One of them is link the
binary with Zlib to compress the script and the perl/lib inside the binary.
We of the HWX project will do this, but you can help too. Get the Zlib
module for Perl, or just Zlib source (I don't remember what have this), you
will see inside the source some C files and examples. One of them is to make
an autoextractor, or something like that.

>
> And now for the small contribution.
> $size_mark_re = $size_mark ;
> $size_mark_re =~ s/([^\w=#-])/\$1/gs ; ...
>
> if ($binlog !~ /$size_mark_re/s) {
> print "** The perl binary was not from HWXperl!\n $perl_bin\n" ;
> exit;
> }
>
> is better written as
>
> if( $binlog !~ /\Q$size_mark\E/s ) { ...
>
> \Q\E is basically quotemeta, see perldoc -f quotemeta, perldoc perlop
Well, we always have something to learn with Perl! Thanks.

Graciliano M. P.