Select Code to Download

use strict;
use Fatal 'chop';  # My name's Bond, James Bond.
...
__END__
Cannot make a non-overridable builtin fatal at /opt/perl-5.8.4/lib/5.8
+.4/Fatal.pm line 108.
BEGIN failed--compilation aborted at testfatal.pl line 2.

use strict;
use subs 'chop';
...
chop 'Ow!';
__END__
hello from chop

        $proto = eval { prototype "CORE::$name" };
        # ...
        die "Cannot make a non-overridable builtin fatal"
          if not defined $proto;