diff options
| author | Guillem Jover <guillem@debian.org> | 2013-01-03 00:17:45 +0100 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2013-05-08 04:58:07 +0200 |
| commit | 6e2750d65d278b641b638251ef607f607a59e4c6 (patch) | |
| tree | 8b4b458cdcb285e92470ff994f4ca89abe52bbdf /scripts/dpkg-scanpackages.pl | |
| parent | 90baddbae257b517cd09a3a6b5d03a40cadd58d6 (diff) | |
| download | dpkg-6e2750d65d278b641b638251ef607f607a59e4c6.tar.gz | |
scripts: Do not use indirect object syntax
Fixes Objects::ProhibitIndirectSyntax.
Warned-by: perlcritic
Diffstat (limited to 'scripts/dpkg-scanpackages.pl')
| -rwxr-xr-x | scripts/dpkg-scanpackages.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scripts/dpkg-scanpackages.pl b/scripts/dpkg-scanpackages.pl index bce37b9fc..e894c538e 100755 --- a/scripts/dpkg-scanpackages.pl +++ b/scripts/dpkg-scanpackages.pl @@ -172,7 +172,7 @@ defined($override) and (-e $override or $pathprefix //= ''; -my $find_h = new IO::Handle; +my $find_h = IO::Handle->new(); open($find_h, '-|', 'find', '-L', "$binarydir/", @find_args, '-print') or syserr(_g("Couldn't open %s for reading"), $binarydir); FILE: |