[libmoosex-has-sugar-perl] 39/120: Get cwd() with Cwd.pm so we can restore cwd()

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to annotated tag 0.05070422-source
in repository libmoosex-has-sugar-perl.

commit 9b131b27b35b32b5f8a290187ca44bf85782819b
Author: Kent Fredric <kentfredric at gmail.com>
Date:   Thu Oct 24 09:16:41 2013 +1300

    Get cwd() with Cwd.pm so we can restore cwd()
---
 install_deps.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/install_deps.pl b/install_deps.pl
index ebc58ba..6811e6b 100644
--- a/install_deps.pl
+++ b/install_deps.pl
@@ -2,6 +2,7 @@
 use strict;
 use warnings;
 use utf8;
+use Cwd qw(cwd);
 
 sub diag { print STDERR @_; print STDERR "\n" }
 sub env_exists { return exists $ENV{ $_[0] } }
@@ -60,7 +61,8 @@ if ( env_is( 'TRAVIS_BRANCH', 'master' ) ) {
   cpanm( @params, '--dev',       'Dist::Zilla',   'Pod::Weaver' );
 
   mkdir '/tmp';
-  my $cwd = chdir '/tmp';
+  my $cwd = cwd();
+  chdir '/tmp';
   safe_exec( 'git', 'clone', 'https://github.com/kentfredric/cpan-fixes.git' );
   chdir '/tmp/cpan-fixes';
   cpanm( @params, './Dist-Zilla-Plugin-Git-2.010.tar.gz' );

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmoosex-has-sugar-perl.git