Ken Foskey 写道:
> sub is_dev
> {
> my ($server, $host) = POSIX::uname();
>
> if ($host eq "aixmbk10") {
> return 1;
>
> I want to test this module in a test script. SO I want to code the
> various servers and check that it works.
>
> Is there a way to override the call to POSIX::uname
> Why not $^O? $ perl -e 'print $^O' linux -- http://home.arcor.de/jeffpang/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
