[devscripts] 02/06: Use proper relative symbolic link
Joachim Breitner
nomeata at moszumanska.debian.org
Sat Apr 12 23:21:51 UTC 2014
This is an automated email from the git hooks/post-receive script.
nomeata pushed a commit to branch mk-origtargz
in repository devscripts.
commit ffeceafb6fcf165481f18a93a5529809c52f77cf
Author: Joachim Breitner <nomeata at debian.org>
Date: Sun Apr 13 01:11:30 2014 +0200
Use proper relative symbolic link
---
scripts/mk-origtargz.pl | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/scripts/mk-origtargz.pl b/scripts/mk-origtargz.pl
index a59df79..1edc438 100755
--- a/scripts/mk-origtargz.pl
+++ b/scripts/mk-origtargz.pl
@@ -150,6 +150,7 @@ use Getopt::Long qw(:config gnu_getopt);
use Pod::Usage;
use Dpkg::IPC;
+use File::Spec;
use File::Temp qw/tempfile/;
use Devscripts::Compression qw/compression_is_supported compression_guess_from_file compression_get_property/;
use Cwd 'abs_path';
@@ -444,8 +445,8 @@ if ($same_name) {
}
} else {
if ($mode eq "symlink") {
- # TODO: Make symbolic link as relative as possible
- symlink abs_path($curfile), $destfile;
+ my $rel = File::Spec->abs2rel( $curfile, $destdir );
+ symlink $rel, $destfile;
} elsif ($mode eq "copy") {
copy $curfile, $destfile;
} elsif ($mode eq "rename") {
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/collab-maint/devscripts.git
More information about the devscripts-devel
mailing list