Author: pebender
Date: Mon Dec 8 19:16:28 2008
New Revision: 4065
Modified:
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed bug in MiniMyth::detect_state_get.
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums (original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums Mon Dec 8
19:16:28 2008
@@ -1 +1 @@
-d4fe125e4e987d2e310430e7db27b722 download/MiniMyth.pm
+7c15fae1553443a1374f3e6264177d9c download/MiniMyth.pm
Modified: trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
==============================================================================
--- trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
(original)
+++ trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm Mon Dec
8 19:16:28 2008
@@ -440,7 +440,7 @@
if (defined $field)
{
- if (($#state >= $instance) && ($instance >= 0) &&
($state[$instance]) && ($state[$instance]->{$field}))
+ if (($#state >= $instance) && ($instance >= 0) && (defined
$state[$instance]) && (defined $state[$instance]->{$field}))
{
return $state[$instance]->{$field};
}
@@ -451,7 +451,7 @@
}
elsif (defined $instance)
{
- if (($#state >= $instance) && ($instance >= 0) &&
($state[$instance]))
+ if (($#state >= $instance) && ($instance >= 0) && (defined
$state[$instance]))
{
return $state[$instance];
}
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"minimyth-commits" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to [EMAIL PROTECTED]
For more options, visit this group at
http://groups.google.com/group/minimyth-commits?hl=en
-~----------~----~----~----~------~----~------~--~---
