Author: pebender
Date: Mon Nov 10 21:13:07 2008
New Revision: 3942

Modified:
    trunk/gar-minimyth/html/minimyth/document-changelog.txt
     
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/conf.pm

Log:
- Fixed perl init bug that would cause init to say that some variables
   were valid when they are not.



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 10  
21:13:07 2008
@@ -1,7 +1,7 @@
  MiniMyth Changelog

   
--------------------------------------------------------------------------------
-Changes since 59 (2008-11-09):
+Changes since 59 (2008-11-10):

  Current MythTV versions
      MythTV 0.20-softpad: version 0.20.2.softpad, release-0-20-fixes branch  
svn 16082,
@@ -53,6 +53,8 @@
        but is must still be readable by user 'minimyth'.
      - Fixed perl init bug that would cause init to hang sometimes when a
        invalid variable value is encountered.
+    - Fixed perl init bug that would cause init to say that some variables
+      were valid when they are not.

  Modified build system
      - Removed unneeded static libraries from the build system.

Modified:  
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/conf.pm
==============================================================================
---  
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/conf.pm
        
(original)
+++  
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/conf.pm
        
Mon Nov 10 21:13:07 2008
@@ -321,7 +321,7 @@
          my $valid = 0;
          foreach (@{$value_valid})
          {
-            if ($minimyth->var_get($var_name) =~ m/^$_$/)
+            if ($minimyth->var_get($var_name) =~ m/^($_)$/)
              {
                  $valid = 1;
              }
@@ -366,7 +366,7 @@
          my $obsolete = 0;
          foreach (@{$value_obsolete})
          {
-            if ($minimyth->var_get($var_name) =~ m/^$_$/)
+            if ($minimyth->var_get($var_name) =~ m/^($_)$/)
              {
                  $obsolete = 1;
              }

--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---

Reply via email to