Commit f68477e6 authored by Leigh Stoller's avatar Leigh Stoller

Stupid taint checking.

parent 118e6482
#!/usr/bin/perl -w
#
# Copyright (c) 2000-2015 University of Utah and the Flux Group.
# Copyright (c) 2000-2017 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -428,7 +428,11 @@ sub TBMakeTempFile($)
{
my($prefix) = @_;
my $fname;
# Dumb and Dumber.
if ($prefix =~ /^(.*)$/) {
$prefix = $1;
}
$fname = `/usr/bin/mktemp /tmp/${prefix}.XXXXXX`;
if ($fname =~ /^([-\@\w\.\/]+)$/) {
......
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