From: ivan <ivan>
Date: Sat, 31 Jan 2004 07:31:09 +0000 (+0000)
Subject: fix for pre-5.8 perls
X-Git-Tag: HTML_Widgets_SelectLayers_0_04
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=be6e0143d36cf2834bb122255ae41b89e5c8049c;hp=04d02572d041171f1e85a5c49f749419b3106d08;p=HTML-Widgets-SelectLayers.git

fix for pre-5.8 perls
---

diff --git a/Changes b/Changes
index 0839e2f..ddb72ce 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension HTML::Widgets::SelectLayers.
 
+0.04  Fri Jan 30 23:23:28 2004
+	- fix for pre-5.8 versions.  *sigh*
+
 0.03  Fri Jan 30 20:51:14 2004
 	- add form_radio
 
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 ) {
diff --git a/homepage.pl b/homepage.pl
index 67ef173..374ed1c 100755
--- a/homepage.pl
+++ b/homepage.pl
@@ -14,7 +14,7 @@ tie my %o, 'Tie::IxHash',
 
 my %html = (
 
-  'download' => '<A HREF="HTML-Widgets-SelectLayers-0.03.tar.gz">Download HTML-Widgets-SelectLayers-0.03.tar.gz</a>',
+  'download' => '<A HREF="HTML-Widgets-SelectLayers-0.04.tar.gz">Download HTML-Widgets-SelectLayers-0.04.tar.gz</a>',
 
   'installation' => '<PRE>
   perl Makefile.PL