lintian: r208 - branches/1.23.0/checks

[marc@marcbrockschmidt.de]

Author: he
Date: 2004-04-22 22:13:45 +0200 (Thu, 22 Apr 2004)
New Revision: 208

Modified:
   branches/1.23.0/checks/debdiff
Log:
This should also work with Perl 5.6.1, making backports more easy.


Modified: branches/1.23.0/checks/debdiff
===================================================================
--- branches/1.23.0/checks/debdiff	2004-04-22 13:20:25 UTC (rev 207)
+++ branches/1.23.0/checks/debdiff	2004-04-22 20:13:45 UTC (rev 208)
@@ -53,7 +53,7 @@
 # Check whether a tar.gz file is accidentally POSIX tar, which woody's tar
 # can't cope with...
 for my $tar (<*.tar.gz>) {
-    open HEAD, '-|', 'zcat', $tar or fail("Couldn't open ${tar}: $!");
+    open HEAD, '-|', 'zcat '.quotemeta($tar) or fail("Couldn't open ${tar}: $!");
 	my $head = "";
     sysread HEAD, $head, 13 or fail("Couldn't read first part of $tar: $!");
     print "E: $pkg $type: source-tar-is-posix-tar $tar\n"