diff options
| author | Jim Meyering <meyering@redhat.com> | 2011-04-20 09:46:27 +0200 |
|---|---|---|
| committer | Jim Meyering <meyering@redhat.com> | 2011-04-20 09:46:27 +0200 |
| commit | 48306b83bececcce14d688e18bd84ee9861e503e (patch) | |
| tree | 13c5260c2224d732cf10f3d523601aafae5474ce /tests/cp | |
| parent | 9f688b83637aea26c98661752d9b4e39441b65c3 (diff) | |
| download | coreutils-48306b83bececcce14d688e18bd84ee9861e503e.tar.xz | |
tests: remove spurious syntax from a perl snippet
* tests/cp/sparse-fiemap: Remove spurious BEGIN {...} block.
Diffstat (limited to 'tests/cp')
| -rwxr-xr-x | tests/cp/sparse-fiemap | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/cp/sparse-fiemap b/tests/cp/sparse-fiemap index 90d55d932..2c6a2506e 100755 --- a/tests/cp/sparse-fiemap +++ b/tests/cp/sparse-fiemap @@ -65,7 +65,7 @@ f() for i in $(seq 1 2 21); do for j in 1 2 31 100; do - $PERL -e 'BEGIN { $n = '$i' * 1024; *F = *STDOUT }' \ + $PERL -e '$n = '$i' * 1024; *F = *STDOUT;' \ -e 'for (1..'$j') { sysseek (*F, $n, 1)' \ -e '&& syswrite (*F, chr($_)x$n) or die "$!"}' > j1 || fail=1 |