Object names cannot contact special characters

This commit is contained in:
Jamie Cameron
2019-08-03 22:41:37 -07:00
parent 8cf71f5b3a
commit df8a43fb4b

View File

@@ -7307,7 +7307,7 @@ elsif ($v[0] eq 'REF') {
elsif ($v[0] eq 'UNDEF') {
$rv = undef;
}
elsif ($v[0] =~ /^OBJECT\s+(.*)$/) {
elsif ($v[0] =~ /^OBJECT\s+([A-Za-z0-9_:]+)$/) {
# An object hash that we have to re-bless
my $cls = $1;
$rv = { };