Fix #325: fix unescaped left brace in regex warnings in testsuite

teodesian · teodesian · commit f9f6d9469e09 · 2017-08-01T19:32:19.000-05:00
diff --git a/t/04-commands-implemented.t b/t/04-commands-implemented.t
@@ -20,7 +20,7 @@ for my $command (keys %{$comm}) {
     open(my $fh, '<', $file) or die "Couldn't open file $file";
     for (<$fh>) {
       if (/'?command'?\s*=>\s*'$command'/
-       or /{'?commands'?}->{'?$command'?}/) {
+       or /{'?commands'?}->\{'?$command'?}/) {
         pass("find $command");
         $found_command = 1;
       }

Original file line number	Diff line number	Diff line change
`@@ -20,7 +20,7 @@ for my $command (keys %{$comm}) {`
`20`	`20`	`open(my $fh, '<', $file) or die "Couldn't open file $file";`
`21`	`21`	`for (<$fh>) {`
`22`	`22`	`if (/'?command'?\s=>\s'$command'/`
`23`		`- or /{'?commands'?}->{'?$command'?}/) {`
	`23`	`+ or /{'?commands'?}->\{'?$command'?}/) {`
`24`	`24`	`pass("find $command");`
`25`	`25`	`$found_command = 1;`
`26`	`26`	`}`