Re^2: How to execute succcessful this Perl script in Linux, window and solaris?

[ikegami]

Update: While trying to reproduce the problem minimally, I realized I misunderstood what I read earlier or what I read was wrong. Disregard this post.

I don't have that module, but I don't see how your solution could work. Win32::DriveInfo::DriveSpace('c:') is still being compiled before use Win32::DriveInfo; is executed, so the prototype mismatch is still present.

[shmem]

Darn... too early in the morning.

what I really meant is the following at the very beginning of the script:

BEGIN {
    if ($^O =~ /^(MS)?Win/) {
        eval "use Win32::DriveInfo";
    }
}

Thanks for another slap ;-)

--shmem

[ikegami]

That does the trick.

# Module.pm
package Module;
INIT { print("ok\n"); }
1;

>perl -we "use Module"
ok

>perl -we "require Module if $^O =~ /Win/"
Too late to run INIT block at Module.pm line 3.

>perl -we "eval 'use Module' if $^O =~ /Win/"
Too late to run INIT block at Module.pm line 3.

>perl -we "BEGIN { eval 'use Module' if $^O =~ /Win/ }"
ok

Update: The if pragram is useful here:

>perl -we "use if $^O =~ /Win/, 'Module'"
ok