Author: pebender
Date: Sun Nov 16 07:25:29 2008
New Revision: 3964
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:
- Worked around problem in Sys::Hostname::hostname that caused the perl init
script to fail when the host name was set using MM_DHCP_HOST_NAME. It
appears that there is at least one bug in Sys::Hostname::hostname that
causes the value to be incorrect when the host name is changed after
Sys::Hostname is loaded.
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 Sun Nov 16
07:25:29 2008
@@ -1,7 +1,7 @@
MiniMyth Changelog
--------------------------------------------------------------------------------
-Changes since 60 (2008-11-15):
+Changes since 60 (2008-11-16):
Current MythTV versions
MythTV 0.20-softpad: version 0.20.2.softpad, release-0-20-fixes branch
svn 16082,
@@ -11,6 +11,13 @@
ticket 3035 as of
2007.02.07.
MythTV 0.21: version 0.21.0, release-0-21-fixes branch
svn 19101.
MythTV trunk: version trunk.19090, trunk svn 19090.
+
+Fixed bugs
+ - Worked around problem in Sys::Hostname::hostname that caused the
perl init
+ script to fail when the host name was set using MM_DHCP_HOST_NAME. It
+ appears that there is at least one bug in Sys::Hostname::hostname
that
+ causes the value to be incorrect when the host name is changed after
+ Sys::Hostname is loaded.
Updated packages
Updated gtk/cairo.
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 Sun Nov 16
07:25:29 2008
@@ -1 +1 @@
-3bb9f26e120dc9320e246c2f3f9b98c9 download/MiniMyth.pm
+06bd0b77f3e14d96d251ef3938851e07 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 Sun Nov
16 07:25:29 2008
@@ -12,7 +12,6 @@
require File::Path;
require File::Spec;
require Net::Telnet;
-require Sys::Hostname;
use WWW::Curl::Easy;
sub new
@@ -148,7 +147,14 @@
{
my $self = shift;
- my $hostname = Sys::Hostname::hostname();
+ my $hostname = `/bin/hostname`;
+
+ chomp $hostname;
+
+ if ($hostname eq '?')
+ {
+ $hostname = '';
+ }
return $hostname;
}
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
