[Bast-commits] r7792 - in local-lib/1.000/trunk: . lib/local

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-10-16 02:11:40 +0000 (Fri, 16 Oct 2009)
New Revision: 7792

Modified:
   local-lib/1.000/trunk/Changes
   local-lib/1.000/trunk/lib/local/lib.pm
Log:
Revert 7790:7788, fix File::HomeDir instead.

Modified: local-lib/1.000/trunk/Changes
===================================================================
--- local-lib/1.000/trunk/Changes	2009-10-16 02:07:08 UTC (rev 7791)
+++ local-lib/1.000/trunk/Changes	2009-10-16 02:11:40 UTC (rev 7792)
@@ -1,7 +1,5 @@
 Revision history for local::lib
 
-        - Suppress warning if a File::HomeDir dev release is installed.
-
 1.004008 2009-10-13
 
         - Clarify re-reading the shell config file after writing to it.

Modified: local-lib/1.000/trunk/lib/local/lib.pm
===================================================================
--- local-lib/1.000/trunk/lib/local/lib.pm	2009-10-16 02:07:08 UTC (rev 7791)
+++ local-lib/1.000/trunk/lib/local/lib.pm	2009-10-16 02:11:40 UTC (rev 7792)
@@ -157,7 +157,6 @@
   my ($user) = ($path =~ /^~([^\/]+)/); # can assume ^~ so undef for 'us'
   my $tried_file_homedir;
   my $homedir = do {
-    no warnings 'numeric'; # Disable warning caused by version comparison with dev releases..
     if (eval { require File::HomeDir } && $File::HomeDir::VERSION >= 0.65) {
       $tried_file_homedir = 1;
       if (defined $user) {