Beefy Boxes and Bandwidth Generously Provided by pair Networks Bob
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Problem with PAR and Tk::Dropsite

by Albannach (Prior)
on May 19, 2005 at 13:55 UTC ( #458617=note: print w/ replies, xml ) Need Help??


in reply to Problem with PAR and Tk::Dropsite

First, there is an error message, but since you must not be using a command prompt to test your EXE, the window closes before you can see the message. It reads: Cannot find Win32Site at Tk/Widget.pm line 256

As to the fix, you will find that pp often does not include non-standard modules by itself, but all it needs is a little coaxing:
pp -M Tk::DragDrop::Win32Site test_drag_and_drop.pl
produces a functioning EXE.

--
I'd like to be able to assign to an luser


Comment on Re: Problem with PAR and Tk::Dropsite
Select or Download Code
Re^2: Problem with PAR and Tk::Dropsite
by Smeagol (Initiate) on May 19, 2005 at 16:09 UTC
    Thank you for responding, and you are of course right. I also got this respons from somewhere else:

    Apply the following patch to Module::ScanDeps 0.51 which teaches it to preload everything below Tk/DragDrop/ once it encounters Tk/DragDrop/Common.pm.

    --- Module/ScanDeps.pm.orig 2005-05-19 13:36:11.000000000 +0200 +++ Module/ScanDeps.pm 2005-05-19 13:49:59.000000000 +0200 @@ -295,6 +295,9 @@ 'Tk/Balloon.pm' => [qw( Tk/balArrow.xbm )], 'Tk/BrowseEntry.pm' => [qw( Tk/cbxarrow.xbm Tk/arrowdownwin.xbm ) +], 'Tk/ColorEditor.pm' => [qw( Tk/ColorEdit.xpm )], + 'Tk/DragDrop/Common.pm' => sub { + _glob_in_inc('Tk/DragDrop', 1); + }, 'Tk/FBox.pm' => [qw( Tk/folder.xpm Tk/file.xpm )], 'Tk/Toplevel.pm' => [qw( Tk/Wm.pm )], 'URI.pm' => sub {

    Regards
    Ronny

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://458617]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (13)
As of 2014-04-16 18:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (433 votes), past polls