Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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?

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

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (2)
As of 2018-07-19 23:30 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (421 votes). Check out past polls.