From: Jim Meyering <meyering@redhat.com>
Date: Wed, 20 Apr 2011 07:46:27 +0000 (+0200)
Subject: tests: remove spurious syntax from a perl snippet
X-Git-Tag: v8.12~18
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=48306b83bececcce14d688e18bd84ee9861e503e;p=thirdparty%2Fcoreutils.git

tests: remove spurious syntax from a perl snippet

* tests/cp/sparse-fiemap: Remove spurious BEGIN {...} block.
---

diff --git a/tests/cp/sparse-fiemap b/tests/cp/sparse-fiemap
index 90d55d9325..2c6a2506e7 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