foreach not for please

toddr · toddr · commit ae0fd1a1362d · 2016-04-12T23:36:01.000-05:00
diff --git a/Parser.pm b/Parser.pm
@@ -62,7 +62,7 @@ sub new {
     }
     
 
-    for my $htype (keys %{$args{_HNDL_TYPES}}) {
+    foreach my $htype (keys %{$args{_HNDL_TYPES}}) {
       # Handlers explicitly given override
       # handlers from the Style package
       unless (defined($handlers->{$htype})) {

Original file line number	Diff line number	Diff line change
`@@ -62,7 +62,7 @@ sub new {`
`62`	`62`	`}`
`63`	`63`
`64`	`64`
`65`		`- for my $htype (keys %{$args{_HNDL_TYPES}}) {`
	`65`	`+ foreach my $htype (keys %{$args{_HNDL_TYPES}}) {`
`66`	`66`	`# Handlers explicitly given override`
`67`	`67`	`# handlers from the Style package`
`68`	`68`	`unless (defined($handlers->{$htype})) {`