diff options
| author | Guillem Jover <guillem@debian.org> | 2017-07-14 02:03:29 +0200 |
|---|---|---|
| committer | Guillem Jover <guillem@debian.org> | 2017-08-26 10:59:37 +0200 |
| commit | 99b3e1c276af88327b5f9423cfdf75afead28018 (patch) | |
| tree | ae1d78ece29d6182e963fadcbd888492d058ea53 /scripts/t | |
| parent | 3f2687270a406347a14463a5e3031d214827bf56 (diff) | |
| download | dpkg-99b3e1c276af88327b5f9423cfdf75afead28018.tar.gz | |
perl: Use -> operator for function variables
Diffstat (limited to 'scripts/t')
| -rw-r--r-- | scripts/t/Dpkg_Compression.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/t/Dpkg_Compression.t b/scripts/t/Dpkg_Compression.t index f2d30e387..3a2be1107 100644 --- a/scripts/t/Dpkg_Compression.t +++ b/scripts/t/Dpkg_Compression.t @@ -36,7 +36,7 @@ sub test_write { printf { $fh } '%s', $lines[2]; close $fh or die 'close failed'; - &$check_result($filename, 'std functions'); + $check_result->($filename, 'std functions'); unlink $filename or die "cannot unlink $filename"; @@ -47,7 +47,7 @@ sub test_write { $fh->printf('%s', $lines[2]); $fh->close() or die 'close failed'; - &$check_result($filename, 'IO::Handle methods'); + $check_result->($filename, 'IO::Handle methods'); } sub check_uncompressed { |