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 $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}) {
my $name = $digits_to_colors{$digit}{name};
my $hex = $digits_to_colors{$digit}{hex};
@ -163,6 +165,7 @@ sub render {
} else {
return;
}
$index++;
}
$html .= "<br/>"
. "<a href='http://resisto.rs/#$formatted_value' style='font-size:92.8%'>"