OXIESEC PANEL
- Current Dir:
/
/
usr
/
share
/
doc
/
liberror-perl
/
examples
Server IP: 10.0.0.4
Upload:
Create Dir:
Name
Size
Modified
Perms
📁
..
-
10/14/2020 08:20:08 AM
rwxr-xr-x
📄
example.pl
719 bytes
08/07/2017 11:50:32 AM
rw-r--r--
📁
next-in-loop
-
10/14/2020 08:20:08 AM
rwxr-xr-x
📄
warndie.pl
382 bytes
08/07/2017 11:50:32 AM
rw-r--r--
Editing: warndie.pl
Close
#!/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 );