Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^2: dynamic loading modules

by sdetweil (Sexton)
on Sep 03, 2012 at 15:19 UTC ( #991449=note: print w/ replies, xml ) Need Help??


in reply to Re: dynamic loading modules
in thread dynamic loading modules

thx.. I added this to my begin block

if ($^O eq "MSWin32") { print ("begin\n"); my $win32 ="Win32.pm"; require $win32; import $win32 qw(GetOSName); }
I get the print message fom my begin block code. and still call it
my $os = GetOSName();
and it still fails
Undefined subroutine &main::GetOSName


Comment on Re^2: dynamic loading modules
Select or Download Code
Re^3: dynamic loading modules
by chromatic (Archbishop) on Sep 03, 2012 at 18:07 UTC

    This is never going to work:

    my $win32 ="Win32.pm"; import $win32 qw(GetOSName);

    If there isn't already an import() in your current package, this will effectively become:

    'Win32.pm'->import( 'GetOSName' );

    Because there's no package called Win32.pm, nothing will get imported. You're better off writing:

    Win32->import( 'GetOSName' );

    ... or even:

    'Win32'->import( 'GetOSName' );
Re^3: dynamic loading modules
by choroba (Canon) on Sep 03, 2012 at 19:39 UTC
    The line calling GetOSName() should never be called on any system other than Windows. Fix the logic of your program.
    لսႽ ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2015-07-05 07:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (60 votes), past polls