Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Fri Jul 16 15:12:45 2010: Request 59430 was acted upon. Transaction: Correspondence added by coolspee...@gmail.com Queue: PAR Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3) Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: coolspee...@gmail.com Status: open Ticket https://rt.cpan.org/Ticket/Display.html?id=59430 > had to use this guide to install PAR: http://cpanforum.com/threads/12424 could that be the problem -- /\/\ |_
Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Sat Jul 17 18:29:24 2010: Request 59430 was acted upon. Transaction: Correspondence added by coolspee...@gmail.com Queue: PAR Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3) Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: coolspee...@gmail.com Status: open Ticket http://rt.cpan.org/Ticket/Display.html?id=59430 > found a work around my_script.pl to my_script.par my_script.par to executable
Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Fri Jul 16 14:06:05 2010: Request 59430 was acted upon. Transaction: Correspondence added by coolspee...@gmail.com Queue: PAR Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3) Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: coolspee...@gmail.com Status: open Ticket https://rt.cpan.org/Ticket/Display.html?id=59430 > never mind newlines were messed up, still get error: Can't locate loadable object for module Tk::Event in @INC (@INC contains: CODE(0x1a2d70c) CODE(0x1980dd4) CODE(0x1982454)) at /Library/Perl/5.8.1/PAR/Heavy.pm line 103 Compilation failed in require at Tk.pm line 13. BEGIN failed--compilation aborted at Tk.pm line 13. Compilation failed in require at script/my_script.pl line 2. BEGIN failed--compilation aborted at script/my_script.pl line 2. Undefined subroutine &Tk::Event::CleanupGlue called at Tk/Event.pm line 3. END failed--call queue aborted. logout [Process completed]
Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Fri Jul 16 13:30:27 2010: Request 59430 was acted upon. Transaction: Correspondence added by coolspee...@gmail.com Queue: PAR Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3) Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: coolspee...@gmail.com Status: open Ticket https://rt.cpan.org/Ticket/Display.html?id=59430 > I will try later on a different OS It may be newline problems -- /\/\ |_
Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Fri Jul 16 15:17:12 2010: Request 59430 was acted upon. Transaction: Correspondence added by coolspee...@gmail.com Queue: PAR Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3) Broken in: (no value) Severity: (no value) Owner: Nobody Requestors: coolspee...@gmail.com Status: open Ticket https://rt.cpan.org/Ticket/Display.html?id=59430 > On Fri, Jul 16, 2010 at 3:12 PM, mitchell lafferty wrote: > had to use this guide to install PAR: http://cpanforum.com/threads/12424 > could that be the problem > -- > /\/\ |_ > I used the latest version and had to do this -- /\/\ |_
Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Fri Jul 16 13:48:12 2010: Request 59430 was acted upon.
Transaction: Correspondence added by coolspee...@gmail.com
Queue: PAR
Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision
5.0 version 8 subversion 1 RC3)
Broken in: (no value)
Severity: (no value)
Owner: Nobody
Requestors: coolspee...@gmail.com
Status: open
Ticket https://rt.cpan.org/Ticket/Display.html?id=59430 >
did this:
> #!/usr/bin/perl
> use Tk;
> # Main Window
> my $mw = new MainWindow;
> my $label = $mw -> Label(-text=>"Hello World") -> pack();
> my $button = $mw -> Button(-text => "Quit",
> -command => sub { exit })
> -> pack();
> MainLoop;
That script works fine here, when saved as my_script.pl
and then packed with pp
$ pp -o my_script my_script.pl
$ ./my_script
this time no error
but exits (no gui):
$ /Volumes/NO\ NAME/my_script; exit
logout
[Process completed]
--
/\/\ |_
[rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Sun Jul 18 08:42:27 2010: Request 59430 was acted upon. Transaction: Correspondence added by RSCHUPP Queue: PAR-Packer Subject: fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3) Broken in: (no value) Severity: (no value) Owner: RSCHUPP Requestors: coolspee...@gmail.com Status: open Ticket https://rt.cpan.org/Ticket/Display.html?id=59430 > On 2010-07-17 18:29:24, coolspee...@gmail.com wrote: > found a work around > > my_script.pl to my_script.par > my_script.par to executable That should produce the same result (depending on the options used). Please, instead of tossing us snippets that we can't make any sense of, tell us the following: - the actual, excact commands you used in the above setps - the actual, exact command you originally used to pack my_script.pl (resulting in a non-functional executable) - the OS and Perl version you tried this on - the versions of PAR::Packer, PAR and Module::ScanDeps involved - did you build PAR::Packer yourself (on the same machine where you tried packing my_script.pl)? did "make test" run successfully? Also can you run unzip -l some_packed_executable | grep Tk on both the original (non-functional) executable and the one produced in the above steps? Cheers, Roderich
Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision 5.0 version 8 subversion 1 RC3)
Sat Jul 17 18:12:28 2010: Request 59430 was acted upon.
Transaction: Correspondence added by coolspee...@gmail.com
Queue: PAR
Subject: Re: [rt.cpan.org #59430] fail in mac OSX 10.3.9 perl5 (revision
5.0 version 8 subversion 1 RC3)
Broken in: (no value)
Severity: (no value)
Owner: Nobody
Requestors: coolspee...@gmail.com
Status: open
Ticket http://rt.cpan.org/Ticket/Display.html?id=59430 >
unziped my_script.par
found
#line 1 "Tk/Event.pm"
package Tk::Event;
use vars qw($VERSION $XS_VERSION @EXPORT_OK);
END { CleanupGlue() }
$VERSION = '4.024'; # was: sprintf '4.%03d', q$Revision: #15 $ =~
/\D(\d+)\s*$/;
$XS_VERSION = '804.029';
$XS_VERSION = eval $XS_VERSION;
use base qw(Exporter);
use XSLoader;
@EXPORT_OK = qw($XS_VERSION DONT_WAIT WINDOW_EVENTS FILE_EVENTS
TIMER_EVENTS IDLE_EVENTS ALL_EVENTS);
XSLoader::load 'Tk::Event',$XS_VERSION;
require Tk::Event::IO;
1;
__END__
and:
#line 1 "Tk/Event/IO.pm"
package Tk::Event::IO;
use strict;
use Carp;
use vars qw($VERSION @EXPORT_OK);
$VERSION = '4.009'; # sprintf '4.%03d', q$Revision: #8 $ =~ /\D(\d+)\s*$/;
use base qw(Exporter);
use Symbol ();
@EXPORT_OK = qw(READABLE WRITABLE);
sub PrintArgs
{
my $func = (caller(1))[3];
print "$func(",join(',',@_),")\n";
}
sub PRINT
{
my $obj = shift;
$obj->wait(WRITABLE);
my $h = $obj->handle;
return print $h @_;
}
sub PRINTF
{
my $obj = shift;
$obj->wait(WRITABLE);
my $h = $obj->handle;
return printf $h @_;
}
sub WRITE
{
my $obj = $_[0];
$obj->wait(WRITABLE);
return syswrite($obj->handle,$_[1],$_[2]);
}
my $depth = 0;
sub READLINE
{
my $obj = shift;
$obj->wait(READABLE);
my $h = $obj->handle;
my $w = <$h>;
return $w;
}
sub READ
{
my $obj = $_[0];
$obj->wait(READABLE);
my $h = $obj->handle;
return sysread($h,$_[1],$_[2],defined $_[3] ? $_[3] : 0);
}
sub GETC
{
my $obj = $_[0];
$obj->wait(READABLE);
my $h = $obj->handle;
return getc($h);
}
sub CLOSE
{
my $obj = shift;
$obj->unwatch;
my $h = $obj->handle;
return close($h);
}
sub EOF
{
my $obj = shift;
my $h = $obj->handle;
return eof($h);
}
sub FILENO
{
my $obj = shift;
my $h = $obj->handle;
return fileno($h);
}
sub imode
{
my $mode = shift;
my $imode = ${{'readable' => READABLE(),
'writable' => WRITABLE()}}{$mode};
croak("Invalid handler type '$mode'") unless (defined $imode);
return $imode;
}
sub fileevent
{
my ($widget,$file,$mode,$cb) = @_;
my $imode = imode($mode);
unless (ref $file)
{
no strict 'refs';
$file = Symbol::qualify($file,(caller)[0]);
$file = \*{$file};
}
my $obj = tied(*$file);
unless ($obj && $obj->isa('Tk::Event::IO'))
{
$obj = tie *$file,'Tk::Event::IO', $file;
}
if (@_ == 3)
{
# query return the handler
return $obj->handler($imode);
}
else
{
# set the handler
my $h = $obj->handler($imode,$cb);
undef $obj; # Prevent warnings about untie with ref to object
unless ($h)
{
untie *$file;
}
}
}
1;
__END__
--
/\/\ |_
