[libcode-tidyall-perl] 161/374: add File::pushd

[Jonas Smedegaard]

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

js pushed a commit to branch master
in repository libcode-tidyall-perl.

commit 7fbe8ade5d57832651d6cba60d9a392b45cc3458
Author: Jonathan Swartz <swartz at pobox.com>
Date:   Sun Sep 2 07:53:37 2012 -0700

    add File::pushd
---
 dist.ini                 |    1 +
 lib/Code/TidyAll/Util.pm |    5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/dist.ini b/dist.ini
index d62de1b..4c4428e 100644
--- a/dist.ini
+++ b/dist.ini
@@ -41,6 +41,7 @@ Digest::SHA1          = 0
 File::Basename        = 0
 File::Find            = 0
 File::Path            = 0
+File::pushd           = 0
 File::Slurp           = 0
 File::Temp            = 0
 File::Zglob           = 0
diff --git a/lib/Code/TidyAll/Util.pm b/lib/Code/TidyAll/Util.pm
index d707c09..26329c6 100644
--- a/lib/Code/TidyAll/Util.pm
+++ b/lib/Code/TidyAll/Util.pm
@@ -3,6 +3,7 @@ use Cwd qw(realpath);
 use Data::Dumper;
 use File::Basename;
 use File::Path;
+use File::pushd qw(pushd);
 use File::Slurp qw(read_file write_file read_dir);
 use File::Spec::Functions qw(abs2rel rel2abs);
 use File::Temp qw(tempdir);
@@ -13,7 +14,7 @@ use warnings;
 use base qw(Exporter);
 
 our @EXPORT_OK =
-  qw(abs2rel basename can_load dirname dump_one_line mkpath read_dir read_file realpath rel2abs tempdir_simple uniq write_file );
+  qw(abs2rel basename can_load dirname dump_one_line mkpath pushd read_dir read_file realpath rel2abs tempdir_simple uniq write_file );
 
 sub can_load {
 
@@ -41,7 +42,7 @@ sub can_load {
 
 sub tempdir_simple {
     my $template = shift || 'Code-TidyAll-XXXX';
-    return tempdir( $template, TMPDIR => 1, CLEANUP => 0 );
+    return realpath( tempdir( $template, TMPDIR => 1, CLEANUP => 0 ) );
 }
 
 sub dump_one_line {

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcode-tidyall-perl.git