|
Check-in Number:
|
4669 | |
| Date: |
2004-Aug-11 18:50:39 (local)
2004-Aug-11 16:50:39 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
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;". |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/shiela/ChangeLog 1.51 -> 1.52
--- 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
|
|
ossp-pkg/shiela/shiela.pl 1.65 -> 1.66
--- 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";
|
|
