Index: ossp-pkg/shiela/ChangeLog
RCS File: /v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v
rcsdiff -q -kk '-r1.51' '-r1.52' -u '/v/ossp/cvs/ossp-pkg/shiela/ChangeLog,v' 2>/dev/null
--- ChangeLog	2004/07/02 19:19:33	1.51
+++ ChangeLog	2004/08/11 16:50:39	1.52
@@ -9,6 +9,13 @@
 
   ChangeLog
 
+  Changes between 1.1.4 and 1.1.5 (02-Jul-2004 to 11-Aug-2004):
+
+   *) Workaround a buggy feature in Perl versions 5.8.4 and higher
+      which totally optimized away "my $var = undef;" constructs
+      instead of optimizing them to just "my $var;".
+      [Ralf S. Engelschall, Thomas Lotterer]
+
   Changes between 1.1.3 and 1.1.4 (27-Jun-2004 to 02-Jul-2004):
 
    *) Fix determination of the "handle" field under new CVS 1.12.x
Index: ossp-pkg/shiela/shiela.pl
RCS File: /v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v
rcsdiff -q -kk '-r1.65' '-r1.66' -u '/v/ossp/cvs/ossp-pkg/shiela/shiela.pl,v' 2>/dev/null
--- shiela.pl	2004/07/02 19:24:52	1.65
+++ shiela.pl	2004/08/11 16:50:39	1.66
@@ -1959,8 +1959,8 @@
         'log' => $cvslog
     };
     $cvsdiff = "\n$cvsdiff\n"; # for easier parsing
-    my $handle_min = undef;
-    my $handle_max = undef;
+    my $handle_min; $handle_min = undef;
+    my $handle_max; $handle_max = undef;
     foreach my $cvsinfo (@cvsinfo) {
         $cvsinfo =~ m|^([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+),([^,]+)$|
              || die "invalid loginfo argument `$cvsinfo' while accumulating information";