Commits

Toby Inkster committed 277a169

fix for RT#83249

  • Participants
  • Parent commits 5642ab3

Comments (0)

Files changed (1)

 	$path = [
 		$path =~ /\[(.+?)\]/g
 	] unless ref $path;
+	$path = [ map { /^'(.+)'$/ ? $1 : $_ } @$path ];
 	
 	while (@$path > 1) {
 		my $chunk = shift @$path;
 	
 	sub new
 	{
-		return bless {
+		bless {
 			obj        => undef,
 			resultType => 'VALUE',
 			result     => [],
 			subx       => [],
-			}, $_[0];
+		}, $_[0];
 	}
 	
 	sub normalize