[dh-make-perl] 05/05: Use Cwd's realpath for upstream tarball search if main_dir is just "."

[Axel Beckert]

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

abe pushed a commit to branch master
in repository dh-make-perl.

commit 987c51dfdd58bd6ea3aa524922ec505e71eb885e
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Sun Jan 19 17:36:38 2014 +0100

    Use Cwd's realpath for upstream tarball search if main_dir is just "."
---
 debian/changelog               | 1 +
 lib/DhMakePerl/Command/make.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 000ae01..023d153 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -36,6 +36,7 @@ dh-make-perl (0.81-1) UNRELEASED; urgency=medium
     guess_tarball($prefix) and guess_debian_tarball() and then using
     guess_tarball() also in setup_dir().
   * Iterate over all supported tar ball suffixes in guess_tarball().
+  * Use Cwd's realpath for upstream tarball search if main_dir is just "."
 
  -- Dima Kogan <dima at secretsauce.net>  Wed, 25 Dec 2013 17:08:35 +0100
 
diff --git a/lib/DhMakePerl/Command/make.pm b/lib/DhMakePerl/Command/make.pm
index ff73669..fd0d1ae 100644
--- a/lib/DhMakePerl/Command/make.pm
+++ b/lib/DhMakePerl/Command/make.pm
@@ -40,6 +40,7 @@ TO BE FILLED
 
 use AptPkg::Cache ();
 use CPAN ();
+use Cwd qw( realpath );
 use Debian::Dependencies      ();
 use Debian::Dependency        ();
 use Debian::WNPP::Query;
@@ -375,7 +376,7 @@ sub setup_dir {
 # 		);
     }
     else {
-        my $maindir = shift(@ARGV) || '.';
+        my $maindir = realpath( shift(@ARGV) || '.' );
         $maindir =~ s/\/$//;
         $self->main_dir($maindir);
         my $guessed_tarball_prefix = catfile( $self->main_dir, "..",

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