Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: unknown code

by karlgoethebier (Monsignor)
on Feb 14, 2018 at 10:22 UTC ( #1209124=note: print w/replies, xml ) Need Help??


in reply to unknown code

1): Aha - it's a fallback. Full code from File::Find:

# check whether or not a scalar variable is tainted # (code straight from the Camel, 3rd ed., page 561) sub is_tainted_pp { my $arg = shift; my $nada = substr( $arg, 0, 0 ); # zero-length local $@; eval { eval "# $nada" }; return length($@) != 0; } # We need a function that checks if a scalar is tainted. # Either use the # Scalar::Util module's tainted() function # or our (slower) pure Perl # fallback is_tainted_pp() { local $@; eval { require Scalar::Util }; *is_tainted = $@ ? \&is_tainted_pp : \&Scalar::Util::tainted; }

And i'm banging my head against a wall to understand it. This code mucked my day ;-)

Best regards, Karl

«The Crux of the Biscuit is the Apostrophe»

perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1209124]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2018-04-25 10:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?