From: Eric Brine <ikegami@adaelis.com>
Date: Sat, 4 Feb 2012 03:32:57 +0000 (-0500)
Subject: Load File::Spec before using it in Cwd
X-Git-Tag: accepted/trunk/20130322.191538~822
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cdce0d84229946d4570d542b72b188f62c26a6d3;p=platform%2Fupstream%2Fperl.git

Load File::Spec before using it in Cwd
---

diff --git a/dist/Cwd/Cwd.pm b/dist/Cwd/Cwd.pm
index 7d04260..83ddae9 100644
--- a/dist/Cwd/Cwd.pm
+++ b/dist/Cwd/Cwd.pm
@@ -579,6 +579,7 @@ sub _perl_abs_path
 	unless (opendir(PARENT, $dotdots))
 	{
 	    # probably a permissions issue.  Try the native command.
+	    require File::Spec;
 	    return File::Spec->rel2abs( $start, _backtick_pwd() );
 	}
 	unless (@cst = stat($dotdots))