duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove `each @` for compatibility with perl v5.10

master
Dylan Lloyd 2012-11-15 19:55:04 -05:00
parent 7aef13b7e3
commit 82d0ecf88e
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/DDG/Goodie/ResistorColors.pm
View File

@ -130,7 +130,9 @@ sub render {
my $text = "$formatted_value\x{2126} ($ohms) resistor colors:"; my $text = "$formatted_value\x{2126} ($ohms) resistor colors:";
my $html = "$formatted_valueΩ ($ohms) resistor colors:"; my $html = "$formatted_valueΩ ($ohms) resistor colors:";
while (my ($index, $digit) = each @$digits) { #while (my ($index, $digit) = each @$digits) {
my $index = 0;
foreach my $digit (@$digits) {
if (exists $digits_to_colors{$digit}) { if (exists $digits_to_colors{$digit}) {
my $name = $digits_to_colors{$digit}{name}; my $name = $digits_to_colors{$digit}{name};
my $hex = $digits_to_colors{$digit}{hex}; my $hex = $digits_to_colors{$digit}{hex};
@ -163,6 +165,7 @@ sub render {
} else { } else {
return; return;
} }
$index++;
} }
$html .= "<br/>" $html .= "<br/>"
. "<a href='http://resisto.rs/#$formatted_value' style='font-size:92.8%'>" . "<a href='http://resisto.rs/#$formatted_value' style='font-size:92.8%'>"