Re^2: 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);
    }
[download]

I get the print message fom my begin block code. and still call it

my $os = GetOSName();
[download]

and it still fails
Undefined subroutine &main::GetOSName

Comment on Re^2: dynamic loading modules Select or Download Code

Replies are listed 'Best First'.
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);` [download] 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' );`	[reply] [d/l] [select]
Re^3: dynamic loading modules by choroba (Cardinal) 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. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]