Author: pebender
Date: Tue Dec 2 06:18:30 2008
New Revision: 4045
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed a bug that would cause the perl init scripts to hang when no
remote was present.
Modified: trunk/gar-minimyth/html/minimyth/document-changelog.txt
==============================================================================
--- trunk/gar-minimyth/html/minimyth/document-changelog.txt (original)
+++ trunk/gar-minimyth/html/minimyth/document-changelog.txt Tue Dec 2
06:18:30 2008
@@ -43,6 +43,10 @@
- Modified the default /etc/X11/xorg.conf file so that it does not auto
add devices.
+Fixed bugs
+ - Fixed a bug that would cause the perl init scripts to hang when no
+ remote was present.
+
Modified build system
- Explicitly enable XvMC and VDPAU in FFmpeg.
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 Tue Dec 2
06:18:30 2008
@@ -1 +1 @@
-39571c3ccce2d40248702890930d72c2 download/MiniMyth.pm
+2410fb27e98ff18d505d2bb77c8cbcf4 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 Tue Dec
2 06:18:30 2008
@@ -435,29 +435,32 @@
closedir(DIR);
}
- if (@state)
+
+ if (defined $field)
{
- if (! defined $instance)
+ if (($#state >= $instance) && ($instance >= 0) &&
($state[$instance]) && ($state[$instance]->{$field}))
{
- return [EMAIL PROTECTED];
+ return $state[$instance]->{$field};
}
else
{
- if (($instance >= 0) && ($instance <= $#state))
- {
- if (! defined $field)
- {
- return $state[$instance];
- }
- else
- {
- if ($state[$instance]->{$field})
- {
- return $state[$instance]->{$field};
- }
- }
- }
+ return undef;
}
+ }
+ elsif (defined $instance)
+ {
+ if (($#state >= $instance) && ($instance >= 0) &&
($state[$instance]))
+ {
+ return $state[$instance];
+ }
+ else
+ {
+ return undef;
+ }
+ }
+ else
+ {
+ return [EMAIL PROTECTED];
}
}
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
