Minor bug fixes to hrn regex.

protogeni/lib/GeniCredential.pm.in

@@ -330,7 +330,8 @@ sub CreateFromSigned($$;$)
 	return undef;
     }
     if (!($target_certificate->hrn() =~ /^[-\w\.]+$/)) {
-	print STDERR "Invalid hrn in credential\n";
+	my $hrn = $target_certificate->hrn();
+	print STDERR "Invalid hrn $hrn in target of credential\n";
 	return undef;
     }
     if (!GeniHRN::IsValid($target_certificate->urn())) {
@@ -353,7 +354,8 @@ sub CreateFromSigned($$;$)
 	return undef;
     }
     if (!($owner_certificate->hrn() =~ /^[-\w\.]+$/)) {
-	print STDERR "Invalid hrn in credential\n";
+	my $hrn = $owner_certificate->hrn();
+	print STDERR "Invalid hrn $hrn in owner of credential\n";
 	return undef;
     }
     if (!GeniHRN::IsValid($owner_certificate->urn())) {

protogeni/lib/GeniTicket.pm.in

@@ -337,8 +337,9 @@ sub CreateFromSignedTicket($$;$$)
 	print STDERR "Invalid target_uuid in credential\n";
 	return undef;
     }
-    if (!($target_certificate->hrn() =~ /^[\w\.]+$/)) {
-	print STDERR "Invalid hrn in credential\n";
+    if (!($target_certificate->hrn() =~ /^[-\w\.]+$/)) {
+	my $hrn = $target_certificate->hrn();
+	print STDERR "Invalid hrn $hrn in target of ticket\n";
 	return undef;
     }
 
@@ -358,8 +359,9 @@ sub CreateFromSignedTicket($$;$$)
 	print STDERR "Invalid target_uuid in credential\n";
 	return undef;
     }
-    if (!($owner_certificate->hrn() =~ /^[\w\.]+$/)) {
-	print STDERR "Invalid hrn in credential\n";
+    if (!($owner_certificate->hrn() =~ /^[-\w\.]+$/)) {
+	my $hrn = $owner_certificate->hrn();
+	print STDERR "Invalid hrn $hrn in owner of ticket\n";
 	return undef;
     }