Commit 3d2bb7b2 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

Fix regex in map expression used in -p mode.

parent ce813c2a
...@@ -147,9 +147,9 @@ if (!$opt{p}) { ...@@ -147,9 +147,9 @@ if (!$opt{p}) {
# Make sure they have access to it # Make sure they have access to it
# #
if ($opt{p}) { if ($opt{p}) {
my @nodes = map { /^([^:]+):/; $1; } @passedPorts; my @nodes = map { /^([^:]+)(:(\d+))?$/; $1; } @passedPorts;
if (!TBNodeAccessCheck($UID,TB_NODEACCESS_READINFO,@nodes)) { if (!TBNodeAccessCheck($UID,TB_NODEACCESS_READINFO,@nodes)) {
die "You do not have permission to view one or more of the nodes\n"; die "You do not have permission to view one or more of @nodes\n";
} }
} else { } else {
if (!TBExptAccessCheck($UID,$pid,$eid,TB_EXPT_READINFO)) { if (!TBExptAccessCheck($UID,$pid,$eid,TB_EXPT_READINFO)) {
......
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