diff options
| author | Guillem Jover <guillem@debian.org> | 2009-11-07 14:04:41 +0100 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2009-11-07 18:15:01 +0100 |
| commit | 0814d1b1eb42c08809d31980d9a7f2b921c713e5 (patch) | |
| tree | e7e4cffd642c9fe323125d1f3954d8ac56924971 /scripts/dpkg-scanpackages.pl | |
| parent | 03b7c00daf4dbf20898dd6c214a4a399d4e2e002 (diff) | |
| download | dpkg-0814d1b1eb42c08809d31980d9a7f2b921c713e5.tar.gz | |
Use find with -L instead of deprecated -follow
Diffstat (limited to 'scripts/dpkg-scanpackages.pl')
| -rwxr-xr-x | scripts/dpkg-scanpackages.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl index ea607af35..d10540d62 100755 --- a/scripts/dpkg-scanpackages.pl +++ b/scripts/dpkg-scanpackages.pl @@ -158,7 +158,6 @@ if ($options{arch}) { else { @find_args = ('-name', "*.$type"); } -push @find_args, '-follow'; my ($binarydir, $override, $pathprefix) = @ARGV; @@ -169,7 +168,7 @@ defined($override) and (-e $override or $pathprefix = '' if not defined $pathprefix; my $find_h = new IO::Handle; -open($find_h,'-|','find',"$binarydir/",@find_args,'-print') +open($find_h, '-|', 'find', '-L', "$binarydir/", @find_args, '-print') or syserr(_g("Couldn't open %s for reading"), $binarydir); FILE: while (<$find_h>) { |