--- tmp/DateChecksum.pm-orig	Sun Jun 30 16:40:03 2002
+++ tmp/DateChecksum.pm	Sun Jun 30 16:37:56 2002
@@ -82,7 +82,7 @@
     # --
     # pad ticket number with leading '0' to length 5
     # --
-    while ( length( $Counter ) < 5 ) {
+    while ( length( my $Counter ) < 5 ) {
         $Counter = "0" . $Counter;
     }
 
@@ -95,8 +95,8 @@
     # calculate a checksum
     # --
     my $chksum = 0;
-    for ( $i = 0; $i<length($Tn); ++$i ) {
-        $Digit = substr( $Tn, $i, 1 );
+    for ( my $i = 0; $i<length($Tn); ++$i ) {
+        my $Digit = substr( $Tn, $i, 1 );
         $chksum = $chksum + ( $Digit * $Digit );
         $chksum %= 10 if ( $i % 2 == 0 );
     }