Author: pebender
Date: Mon Jan 5 19:37:00 2009
New Revision: 4173
Modified:
trunk/gar-minimyth/html/minimyth/document-changelog.txt
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/web.pm
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
Log:
- Fixed spurious warnings in the web.pm and x.pm init scripts.
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 Jan 5
19:37:00 2009
@@ -81,6 +81,7 @@
- Fixed a bug where error messages were logged with the
deprecated 'error'
level rather than the 'err' level.
- Fixed a bug that could cause the fakeroot script to use the wrong
shell.
+ - Fixed spurious warnings in the web.pm and x.pm init scripts.
Modified build system
- Enabled building of wmgui in utils/cwiid package.
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/web.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/web.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/web.pm
Mon Jan 5 19:37:00 2009
@@ -7,6 +7,7 @@
use strict;
use warnings;
+use File::Find ();
require MiniMyth;
sub start
@@ -21,6 +22,8 @@
File::Find::finddepth(
sub
{
+ # Silence spurious warning caused by $File::Find::name being
used only once.
+ no warnings 'File::Find';
chown($uid, $gid, $File::Find::name);
},
'/srv/www');
Modified:
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
==============================================================================
---
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
(original)
+++
trunk/gar-minimyth/script/meta/minimyth/files/source/rootfs/etc/rc.d/init/x.pm
Mon Jan 5 19:37:00 2009
@@ -9,7 +9,7 @@
use feature "switch";
require File::Basename;
-require File::Find;
+use File::Find ();
require File::Path;
require MiniMyth;
@@ -232,6 +232,8 @@
File::Find::find(
sub
{
+ # Silence spurious warning caused by
$File::Find::dir being used only once.
+ no warnings 'File::Find';
my $file =
File::Basename::basename($File::Find::name);
if ((-f $File::Find::name) &&
($File::Find::dir !~ /^\/usr\/lib\/nvidia(\/.*)?$/) && ($file =~
/^$lib_filter$/))
{
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
