Minor bug fix for hrn.

9c650f6e · Leigh B Stoller · daf45cef · 9c650f6e
Commit 9c650f6e authored Jul 22, 2013 by Leigh B Stoller
--- a/protogeni/lib/GeniSlice.pm.in
+++ b/protogeni/lib/GeniSlice.pm.in
@@ -363,7 +363,7 @@ sub slicename($)
 {
    my ($self) = @_;

-    my ($slicename) = ($self->hrn() =~ /^.*\.(\w*)$/);
+    my ($slicename) = ($self->hrn() =~ /^.*\.([-\w]*)$/);
    $slicename = $self->hrn()
 	if (!defined($slicename));