Re: Is this code secure, can I test it on my machine?

For this I need to check for the appearance of use lib and @INC in the code.

Impossible.

my $x = 'INC';
unshift @$x, ...;
[download]

Comment on Re: Is this code secure, can I test it on my machine? Download Code

Replies are listed 'Best First'.
Re^2: Is this code secure, can I test it on my machine? by szabgab (Priest) on May 24, 2010 at 09:50 UTC
Nice. Can you make this work with strict as well?	[reply]
Re^3: Is this code secure, can I test it on my machine? by salva (Canon) on May 24, 2010 at 10:26 UTC
`use strict; use warnings; use Data::Dumper; sub foo { use constant foo1 => $^H = 0; push @{reverse 'CNI'}, 'hello'; } foo(); print Dumper \@INC;` [download]	[reply] [d/l]
Re^3: Is this code secure, can I test it on my machine? by ikegami (Patriarch) on May 24, 2010 at 22:24 UTC
Sure: `no strict 'refs'; unshift @{ 'INC' }, ...;` [download] Similar, `unshift @{ $::{INC} }, ...;` [download] `unshift @{ *INC }, ...;` [download] These might be considered the same as @INC, or maybe not: `unshift @::INC, ...;` [download] `unshift @main::INC, ...;` [download]	[reply] [d/l] [select]