Commit 64b3fdea authored by Leigh Stoller's avatar Leigh Stoller

Add taint check required by new perl.

parent 0608e843
......@@ -245,6 +245,10 @@ exit(0)
# get a new copy.
#
my $newhash = $xmlparse->{'attribute'}->{"hash"}->{'value'};
# Silly taint check.
if ($newhash =~/^(.*)$/) {
$newhash = $1;
}
if ($getimage) {
#
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment