From be6e0143d36cf2834bb122255ae41b89e5c8049c Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 31 Jan 2004 07:31:09 +0000
Subject: fix for pre-5.8 perls

---
 SelectLayers.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'SelectLayers.pm')

diff --git a/SelectLayers.pm b/SelectLayers.pm
index a50d969..e7cca4c 100644
--- a/SelectLayers.pm
+++ b/SelectLayers.pm
@@ -3,7 +3,7 @@ package HTML::Widgets::SelectLayers;
 use strict;
 use vars qw($VERSION);
 
-$VERSION = '0.03';
+$VERSION = '0.04';
 
 =head1 NAME
 
@@ -227,8 +227,8 @@ sub _fixup {
   foreach my $f ( @$form_radio ) {
     $html .= "what.$f.value = '';
               for ( i=0; i< document.$form_name.$f.length; i++ )
-                if ( document.$form_name.${f}[i].checked )
-                  what.$f.value = document.$form_name.${f}[i].value;\n";
+                if ( document.$form_name.$f\[i].checked )
+                  what.$f.value = document.$form_name.$f\[i].value;\n";
   }
 
   foreach my $f ( @$form_select ) {
-- 
cgit v1.2.1