* dh_link: -X can be used to avoid it modifying symlinks to be compliant

  with policy. Closes: #461392

2 files changed, 14 insertions, 1 deletions

diff --git a/debian/changelog b/debian/changelog
index fbcea8c7..29419c3e 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+debhelper (6.0.3) UNRELEASED; urgency=low
+
+  * dh_link: -X can be used to avoid it modifying symlinks to be compliant
+    with policy. Closes: #461392
+
+ -- Joey Hess <joeyh@debian.org>  Fri, 18 Jan 2008 12:29:15 -0500
+
 debhelper (6.0.2) unstable; urgency=low
 
   * Revert slightly broken refactoring of some exclude code.
diff --git a/dh_link b/dh_link
index 84e6ba35..dc396dd5 100755
--- a/dh_link
+++ b/dh_link
@@ -12,7 +12,7 @@ use Debian::Debhelper::Dh_Lib;
 
 =head1 SYNOPSIS
 
-B<dh_link> [S<I<debhelper options>>] [B<-A>] [S<I<source destination ...>>]
+B<dh_link> [S<I<debhelper options>>] [B<-A>] [B<-X>I<item>] [S<I<source destination ...>>]
 
 =head1 DESCRIPTION
 
@@ -54,6 +54,11 @@ conform to debian policy, and corrects them (v4 or later).
 Create any links specified by command line parameters in ALL packages
 acted on, not just the first.
 
+=item B<-Xitem>, B<--exclude=item>
+
+Do not correct symlinks that contain "item" anywhere in their filename from
+being corrected to comply with debian policy.
+
 =item I<source destination ...>
 
 Create a file named "destination" as a link to a file named "source". Do
@@ -145,6 +150,7 @@ foreach my $package (@{$dh{DOPACKAGES}}) {
 		find(
 			sub {
 				return unless -l;
+				return if excludefile($_);
 				my $dir=$File::Find::dir;
 				$dir=~s/^\Q$tmp\E//;
 				my $target = readlink($_);