Commit f3274985 authored by Mike Hibler's avatar Mike Hibler

Still one more utility that didn't recognize osid versions.

parent cb22d600
#!/usr/bin/perl -wT
#
# Copyright (c) 2000-2011 University of Utah and the Flux Group.
# Copyright (c) 2000-2015 University of Utah and the Flux Group.
#
# {{{EMULAB-LICENSE
#
......@@ -124,7 +124,7 @@ if (! ($clear || $list || $default || $waitmode)) {
$osid = shift();
# Untaint args.
if ($osid =~ /^([-\w\+\.\/]+)$/) {
if ($osid =~ /^([-\w\+\.\/]+(?::\d+)?)$/) {
$osid = $1;
}
else {
......
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