⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.144
Server IP:
157.245.143.252
Server:
Linux www 6.11.0-9-generic #9-Ubuntu SMP PREEMPT_DYNAMIC Mon Oct 14 13:19:59 UTC 2024 x86_64
Server Software:
nginx/1.26.0
PHP Version:
8.3.11
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
liberror-perl
/
examples
/
Edit File: warndie.pl
#!/usr/bin/perl -w # Usage: perl warndie.pl [1 or true or whatever if you want to use warndie] 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 );
Simpan