/usr/share/doc/liberror-perl/examples/warndie.pl is in liberror-perl 0.17025-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | #!/usr/bin/perl -w
require Error;
if( $ARGV[0] ) {
import Error qw( :warndie );
print "Imported the :warndie tag.\n";
print "\n";
}
else {
print "Running example without the :warndie tag.\n";
print "Try also passing a true value as \$ARGV[0] to import this tag\n";
print "\n";
}
sub inner {
shift->foo();
}
sub outer {
inner( @_ );
}
outer( undef );
|