Object names cannot contact special characters

jcameron · jcameron · commit df8a43fb4bdc · 2019-08-03T22:41:37.000-07:00
diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
@@ -7307,7 +7307,7 @@ sub unserialise_variable
 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 = { };

Original file line number	Diff line number	Diff line change
`@@ -7307,7 +7307,7 @@ sub unserialise_variable`
`7307`	`7307`	`elsif ($v[0] eq 'UNDEF') {`
`7308`	`7308`	`$rv = undef;`
`7309`	`7309`	`}`
`7310`		`-elsif ($v[0] =~ /^OBJECT\s+(.*)$/) {`
	`7310`	`+elsif ($v[0] =~ /^OBJECT\s+([A-Za-z0-9_:]+)$/) {`
`7311`	`7311`	`# An object hash that we have to re-bless`
`7312`	`7312`	`my $cls = $1;`
`7313`	`7313`	`$rv = { };`