However, you can mock it like this:

BEGIN {
    unless (eval "require warnings;") {
        eval <<EOD;
sub warnings::import {};
sub warnings::unimport {};
EOD
        $INC{'warnings.pm'} = 'I do not really exist';
    }
} #BEGIN
[download]

Liz

Everybody is too eval(string) happy for my tastes ;)

BEGIN {
    eval {
        require warnings;
        1
    } or do {
        no strict 'refs';
        *warnings::import = *warnings::unimport = sub{};
        $INC{'warnings.pm'}='';
    };
}
[download]

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"

I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).

** The third rule of perl club is a statement of fact: pod is sexy.

Ok, fair enough.

One question though: the 1 in line 4 of your code seems superfluous to me. A successful 'require warnings' should return a true value anyway, no?

Liz

I would take the following approach, faking a "warnings.pm" without creating a file like that :

  eval "use warnings;";
  if ($@) {
    eval q{
      package warnings;
      sub import {};
      sub unimport {};
    };
  };
[download]

perl -MHTTP::Daemon -MHTTP::Response -MLWP::Simple -e ' ;    # The  
$d = new HTTP::Daemon and fork and getprint $d->url and exit;#spider
($c = $d->accept())->get_request(); $c->send_response( new   #in the
HTTP::Response(200,$_,$_,qq(Just another Perl hacker\n))); ' #  web
[download]

If this is for suppression for runtime warnings, as I think it is, my thought would be to just localize $^W, making it false. For example:

{
    local $^W;  # disable runtime warnings for this block

    # For example:
    $str = join "#", 'A', undef, 'B';
}
[download]

If a module depends on warnings.pm, it might also include some other stuff that only works on 5.6 and up. You never know.

If, however, the above patch actually does what is wanted, and the module works on 5.005, and if this is an official module on CPAN, I would like to have steps taken to remove this dependency from the official distribution.