Bug #21787 for PAR: Infering which script to execute via symbolic links doesn't work

> another bug in PAR 0.952 with any linux I managed to test Slackware,

> Suse :( > > $ pp -M Tk::Bitmap -o photclient photclient.pl photview.pl > $ ln -s photclient photview > > Running "photview" > $ ./photview > invokes actually "photclient" > > $cp photclient photview > works fine, > > $ ./photview > invokes photview...

> And as I have said with PAR 0.954 none of them works at all... just

> usage on any Linux.

> Any Idea how to debug it?

> > > <URL: http://rt.cpan.org/Ticket/Display.html?id=21787 > > > On Sa. 30. Sep. 2006, 04:01:40, rumen.bogdanovski@gmail.com wrote: > Fedora, > > Have you tried with a very simple example, so I could reproduce the > error? I have no idea what phot* does and yes, it shouldn't matter, but > I can't confirm that either. > > 100% cpu > > That's something else, yes. It might well be related to what your > program does/loads. I'll try to investigate, but I have no idea where to > start. Anyway, different ticket. > > > Okay, observe: > > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ ls -l > insgesamt 8 > -rwxr-xr-x 1 tsee tsee 82 2006-10-01 15:26 t2.pl > -rwxr-xr-x 1 tsee tsee 81 2006-10-01 15:25 t.pl > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ cat t.pl > #!/usr/bin/perl > use strict; > use warnings; > print "This is t.pl\n"; > print "$0\n"; > > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ cat t2.pl > #!/usr/bin/perl > use strict; > use warnings; > print "This is t2.pl\n"; > print "$0\n"; > > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ perl t.pl > This is t.pl > t.pl > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ perl t2.pl > This is t2.pl > t2.pl > > (So far so good.) > > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ mkdir bin > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ pp -o bin/t t.pl t2.pl > > (Using bin/ subdirectory so I can be sure the binary has no connection > to the original script whatsoever. This is just caution, nothing else.) > > tsee@tsee64:~/data/perl/par/par/trunk/tmp$ cd bin > tsee@tsee64:~/data/perl/par/par/trunk/tmp/bin$ ./t > This is t.pl > ./t > tsee@tsee64:~/data/perl/par/par/trunk/tmp/bin$ ln -s t t2 > tsee@tsee64:~/data/perl/par/par/trunk/tmp/bin$ ./t2 > This is t2.pl > ./t2 > > Works! I'm really sorry I can't reproduce the error. Can you try again > with this simple test? This is PAR 0.954, by the way. > > As another test, I'll try packaging a simple Tk app. Log attached as > text file. (Yes, works here.) > > Steffen > > > tsee@tsee64:~/data/perl/par/art/demo/tmp$ find . > . > ./tkhello.pl > ./MyApp.pm > tsee@tsee64:~/data/perl/par/art/demo/tmp$ cat tkhello.pl > #!/usr/bin/perl > use strict; > use warnings; > > use FindBin; > use lib $FindBin::Bin; > > use MyApp; > MyApp->run(); > > tsee@tsee64:~/data/perl/par/art/demo/tmp$ cat MyApp.pm > > package MyApp; > use strict; > use warnings; > > use Tk; # Load Tk GUI toolkit > > sub run { > my $class = shift; > > # Create a window > my $mw = Tk::MainWindow->new(); > > # Create a button. > # Clicking it will exit the sample program > my $button = $mw->Button( > -text => 'Hello World!', > -command => sub { exit }, > )->pack(); > > # Run the Tk Event Loop > MainLoop; > } > > 1; > > tsee@tsee64:~/data/perl/par/art/demo/tmp$ perl tkhello.pl > (Tk window pops up.) > tsee@tsee64:~/data/perl/par/art/demo/tmp$ mkdir cleandir > tsee@tsee64:~/data/perl/par/art/demo/tmp$ pp -o cleandir/tkhello > tkhello.pl > tsee@tsee64:~/data/perl/par/art/demo/tmp$ cd cleandir > tsee@tsee64:~/data/perl/par/art/demo/tmp/cleandir$ ls -l > insgesamt 3292 > -rwxr-xr-x 1 tsee tsee 3363421 2006-10-01 15:39 tkhello > tsee@tsee64:~/data/perl/par/art/demo/tmp/cleandir$ ./tkhello > (Tk window pops up.) > > > >