From: t0m <t0m@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Date: Fri, 16 Oct 2009 02:11:40 +0000 (+0000)
Subject: Revert 7790:7788, fix File::HomeDir instead.
X-Git-Tag: 1.006009~54
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=37bd064d596047a1b286aaf34c4518f1bcca7c5f;p=p5sagit%2Flocal-lib.git

Revert 7790:7788, fix File::HomeDir instead.

git-svn-id: http://dev.catalyst.perl.org/repos/bast/local-lib/1.000/trunk@7792 bd8105ee-0ff8-0310-8827-fb3f25b6796d
---

diff --git a/Changes b/Changes
index 84bde13..e0f7770 100644
--- a/Changes
+++ b/Changes
@@ -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.
diff --git a/lib/local/lib.pm b/lib/local/lib.pm
index a436a71..d45ed1d 100644
--- a/lib/local/lib.pm
+++ b/lib/local/lib.pm
@@ -157,7 +157,6 @@ sub resolve_home_path {
   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) {