Author: pebender
Date: Thu Jan 22 15:37:47 2009
New Revision: 4310
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/mythtv.pm
Log:
- Fixed a bug introduced by commit 4302.
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
Thu Jan 22 15:37:47 2009
@@ -93,9 +93,9 @@
}
if (opendir(DIR, '/home/minimyth/.mythtv/themecache'))
{
- while (my $themecache = readdir(DIR))
+ foreach my $themecache (grep(! /^\./, (readdir(DIR))))
{
- if (((stat($themecache))[4] != $uid) || ((stat(_))[5] !=
$gid))
+ if
(((stat(qq(/home/minimyth/.mythtv/themecache/$themecache)))[4] != $uid) ||
((stat(_))[5] != $gid))
{
File::Find::finddepth(
sub
@@ -105,7 +105,7 @@
chown($uid, $gid, $File::Find::name);
}
},
- $themecache);
+ qq(/home/minimyth/.mythtv/themecache/$themecache));
}
}
closedir(DIR);
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
