Author: pebender
Date: Mon Nov 17 20:42:21 2008
New Revision: 3978
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/mythtv.pm
trunk/gar-minimyth/script/perl/perl-MiniMyth/checksums
trunk/gar-minimyth/script/perl/perl-MiniMyth/files/MiniMyth.pm
Log:
- Fixed bug that caused MM_MYTHDB_SETTINGS_* variables to fail when using
perl init scripts.
- Fixed bug in MiniMyth::mythdb_jumppoints_update.
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
20:42:21 2008
@@ -28,6 +28,9 @@
Sys::Hostname is loaded.
- Fixed bug that caused perl init scripts to create '/STDOUT' rather
than
'/var/log/minimyth.log'.
+ - Fixed bug that caused MM_MYTHDB_SETTINGS_* variables to fail when
using
+ perl init scripts.
+ - Fixed bug in MiniMyth::mythdb_jumppoints_update.
Modified build system
- Changed mksquashfs so that it uses more conservative settings. I hope
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/mythtv.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/mythtv.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/mythtv.pm
Mon Nov 17 20:42:21 2008
@@ -137,29 +137,29 @@
}
# Configure Myth database jumppoints to match MiniMyth frontend.
- foreach ($minimyth->var_list({ 'filter' => 'MM_MYTHDB_JUMPPOINTS_.*'
}))
+ foreach (@{$minimyth->var_list({ 'filter' => 'MM_MYTHDB_JUMPPOINTS_.*'
})})
{
- if (/^([^~]+)~([^~]*)$/)
+ if ($minimyth->var_get($_) =~ /^([^~]+)~([^~]*)$/)
{
$minimyth->mythdb_jumppoints_update($1, $2);
}
}
# Configure Myth database keybindings to match MiniMyth frontend.
- foreach ($minimyth->var_list({ 'filter' => 'MM_MYTHDB_KEYBINDINGS_.*'
}))
+ foreach (@{$minimyth->var_list({ 'filter'
=> 'MM_MYTHDB_KEYBINDINGS_.*' })})
{
- if (/^([^~]+)~([^~]+)~([^~]*)$/)
+ if ($minimyth->var_get($_) =~ /^([^~]+)~([^~]+)~([^~]*)$/)
{
$minimyth->mythdb_keybindings_update($1, $2, $3);
}
}
# Configure Myth database settings to match MiniMyth frontend.
- foreach ($minimyth->var_list({ 'filter' => 'MM_MYTHDB_SETTINGS_.*' }))
+ foreach (@{$minimyth->var_list({ 'filter' => 'MM_MYTHDB_SETTINGS_.*'
})})
{
- if (/^([^~]+)~([^~]*)$/)
+ if ($minimyth->var_get($_) =~ /^([^~]+)~([^~]*)$/)
{
- $minimyth->mythdb_settings_update($1, $2);
+ $minimyth->mythdb_settings_set($1, $2);
}
}
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
20:42:21 2008
@@ -1 +1 @@
-c1b6af380a4ab7d527c1ccc213de5d40 download/MiniMyth.pm
+477e6db91583f51251936f752f87d715 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 20:42:21 2008
@@ -880,7 +880,7 @@
my $destination = shift;
my $keylist = shift;
- return $self->mythdb_x_print('jumppoints', { 'destination' =>
$destination }, 'keylist', $keylist);
+ return $self->mythdb_x_update('jumppoints', { 'destination' =>
$destination }, 'keylist', $keylist);
}
sub mythdb_jumppoints_get
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
