diff options
Diffstat (limited to 'memtaint.pl')
-rw-r--r-- | memtaint.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/memtaint.pl b/memtaint.pl new file mode 100644 index 000000000..54072dc49 --- /dev/null +++ b/memtaint.pl @@ -0,0 +1,14 @@ +use Cache::Memcached::Fast; +use Devel::Peek; + +my $mc = Cache::Memcached::Fast->new( { servers => ['127.0.0.1:11211'] }); + +my $v=[$ENV{PATH}]; + +Dump($v->[0]); + +$mc->set("taint", $v); + +Dump($v->[0]); + +Dump($mc->get("taint")->[0]); |