lintian: r1368 - in trunk: debian unpack

[djpig@debian.org]

Author: djpig
Date: 2008-06-09 23:33:53 +0200 (Mon, 09 Jun 2008)
New Revision: 1368

Modified:
   trunk/debian/changelog
   trunk/unpack/unpack-binpkg-l1
Log:
* unpack/unpack-binpkg-l1:
  + Don't include version number from Source: field in
    the source symlink.  Noted by RA.  (Closes: #485474)


Modified: trunk/debian/changelog
===================================================================
--- trunk/debian/changelog	2008-06-08 04:36:35 UTC (rev 1367)
+++ trunk/debian/changelog	2008-06-09 21:33:53 UTC (rev 1368)
@@ -1,3 +1,11 @@
+lintian (1.24.1) unstable; urgency=low
+
+  * unpack/unpack-binpkg-l1:
+    + [FL] Don't include version number from Source: field in
+      the source symlink.  Noted by RA.  (Closes: #485474)
+
+ --
+
 lintian (1.24.0) unstable; urgency=low
 
   The "Policy 3.8.0, infrastructure evolution, and real web design"

Modified: trunk/unpack/unpack-binpkg-l1
===================================================================
--- trunk/unpack/unpack-binpkg-l1	2008-06-08 04:36:35 UTC (rev 1367)
+++ trunk/unpack/unpack-binpkg-l1	2008-06-09 21:33:53 UTC (rev 1368)
@@ -102,6 +102,8 @@
 }
 
 # create symlink to source package
-symlink("../../source/$data->{'source'}","$base_dir/source") or fail("symlink: $!");
+$data->{'source'} =~ s/\s*\(.*\)\s*$//;
+symlink("../../source/$data->{'source'}","$base_dir/source")
+    or fail("symlink: $!");
 
 exit 0;