fix actually deleting old origs

1 files changed, 3 insertions, 3 deletions

diff --git a/perl5/Local/Homedir.pm b/perl5/Local/Homedir.pm
index 9959cb76..3920369d 100644
--- a/perl5/Local/Homedir.pm
+++ b/perl5/Local/Homedir.pm
@@ -25,7 +25,7 @@ use strict;
 use warnings;
 use autodie;
 
-use Cwd;
+use Cwd qw(getcwd realpath);
 use File::Find;
 use File::Spec::Functions;
 use Exporter 'import';
@@ -182,12 +182,12 @@ sub src_cleanup {
             $b =~ /_([^_]+)\.orig\.tar/;
             my $ver_b = Dpkg::Version->new("$1");
             version_compare($ver_b, $ver_a);
-        } grep { !/\.asc\z/ } glob("$prefix*.orig.tar.*");
+        } grep !/\.asc\z/, map realpath($_), glob "$prefix*.orig.tar.*";
         if (@origs > 2) {
             shift @origs;
             shift @origs;
             for (@origs) {
-                unlink;
+                unlink $_;
                 unlink "$_.asc" if -e "$_.asc";
             }
         }