summaryrefslogtreecommitdiffstats
path: root/memtaint.pl
diff options
context:
space:
mode:
authorDylan William Hardison <dylan@hardison.net>2016-10-11 16:26:32 +0200
committerDylan William Hardison <dylan@hardison.net>2016-10-11 16:26:32 +0200
commit7fd0299555cbc2ab398f1387afd9935cb8eb17ae (patch)
tree07b416b3df81bda68e712d79b4b040e9a5e2ae44 /memtaint.pl
parent9f4d372fd34f67baa925787c74a625427a7315d7 (diff)
downloadbugzilla-7fd0299555cbc2ab398f1387afd9935cb8eb17ae.tar.gz
bugzilla-7fd0299555cbc2ab398f1387afd9935cb8eb17ae.tar.xz
Bug 1309229 - changing product results in Insecure dependency in parameter 3 of DBI::db=HASH(0x7f4caad58190)->selectcol_arrayref method call while running with -T switch at /data/www/bugzilla.mozilla.org/Bugzilla/Product.pm line 555.
Diffstat (limited to 'memtaint.pl')
-rw-r--r--memtaint.pl14
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]);