Author: pebender
Date: Mon Nov 17 21:14:51 2008
New Revision: 3979
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 bug in MiniMyth::mythdb_x_get. This bug could cause the perl init
scripts to fail with the error message 'configuring video ...'.
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 Mon Nov 17
21:14:51 2008
@@ -31,6 +31,8 @@
- Fixed bug that caused MM_MYTHDB_SETTINGS_* variables to fail when
using
perl init scripts.
- Fixed bug in MiniMyth::mythdb_jumppoints_update.
+ - Fixed bug in MiniMyth::mythdb_x_get. This bug could cause the perl
init
+ scripts to fail with the error message 'configuring video ...'.
Modified build system
- Changed mksquashfs so that it uses more conservative settings. I hope
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 Nov 17
21:14:51 2008
@@ -1 +1 @@
-477e6db91583f51251936f752f87d715 download/MiniMyth.pm
+1492bbb206c9c225f70e02925c1f326e 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 Nov
17 21:14:51 2008
@@ -730,7 +730,11 @@
my $sth = $self->mythdb_handle->prepare($query);
$sth->execute;
- my $result = $sth->fetchrow_hashref()->{$field};
+ my $result = undef;
+ if ($sth->fetchrow_hashref())
+ {
+ $result = $sth->fetchrow_hashref()->{$field};
+ }
$sth->finish();
return $result;
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
