Commit 9c650f6e authored by Leigh B Stoller's avatar Leigh B Stoller

Minor bug fix for hrn.

parent daf45cef
......@@ -363,7 +363,7 @@ sub slicename($)
my ($self) = @_;
my ($slicename) = ($self->hrn() =~ /^.*\.(\w*)$/);
my ($slicename) = ($self->hrn() =~ /^.*\.([-\w]*)$/);
$slicename = $self->hrn()
if (!defined($slicename));
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