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

[shmem]

Maybe this happens because you use require instead of use, thus no import.

update - been too dizzy this morning :-(

Turn the eval block into a string eval and wrap it in a BEGIN block. This way the eval is executed and the module loaded before the call to Win32::DriveInfo::DriveSpace is even compiled. I can't test, because I don't have a Windows box at hand.

Put this at the very beginning of your script:

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

What happens if you turn the eval block into a string eval? I can't test, because I don't have a Windows box at hand.

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

    $TotalNumberOfFreeBytes = (Win32::DriveInfo::DriveSpace('c:'))[6];
    $TotalNumberOfBytes = (Win32::DriveInfo::DriveSpace('c:'))[5];

    print "This is $^O \n";
    print "Total Free: $TotalNumberOfFreeBytes\tTotal size: $TotalNumb
+erOfBytes\n";
    print $@,"\ndone!";
}
elsif ( $^O =~ /^linux/ )
{
    print "This is Linux OS!!!\n";
}

--shmem

update: changed "require" to "use" in the string eval. Small negligence after copy & paste.

[esskar]

makes no difference. It is still a require.

[shmem]

I actually meant use. I forgot to change 'require' to 'use' after copy & paste. Fixed. You could have /msg'ed me, btw ,-)

[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