Use another root directory in _rel2rel.

[debhelper.git] / Debian / Debhelper / Buildsystem.pm

diff --git a/Debian/Debhelper/Buildsystem.pm b/Debian/Debhelper/Buildsystem.pm
index babbd10d332ab9b5b4ea076e3ac532cef6f12105..68cb7f5c315280d8050ddfc7b27111a98229207b 100644 (file)
--- a/Debian/Debhelper/Buildsystem.pm
+++ b/Debian/Debhelper/Buildsystem.pm
@@ -159,7 +159,7 @@ sub _canonpath {
 # converts and returns path of $path being relative the $base.
 sub _rel2rel {
        my ($this, $path, $base, $root)=@_;
-       $root = File::Spec->rootdir() if !defined $root;
+       $root = "/tmp" if !defined $root;
        
        return File::Spec->abs2rel(
            File::Spec->rel2abs($path, $root),