Author: pebender
Date: Wed Sep  3 19:40:15 2008
New Revision: 3697

Modified:
     
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/lirc.pm

Log:
- Fixed bug that caused the perl init scripts to not enable wake-up via USB  
LIRC devices.



Modified:  
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/lirc.pm
==============================================================================
---  
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/lirc.pm
   
(original)
+++  
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d.perl/init/lirc.pm
   
Wed Sep  3 19:40:15 2008
@@ -15,7 +15,6 @@
  sub _remote_wakeup_enable
  {
      my $self        = shift;
-    my $minimyth    = shift;
      my $device_list = shift;

      if ((! -r '/sys/class/lirc') ||
@@ -43,7 +42,7 @@
              }
              close(FILE);
          }
-        if (! grep(/^$name$/, @{$device_list}))
+        if (! grep(/^$name,.*$/, @{$device_list}))
          {
              next;
          }

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