From 48306b83bececcce14d688e18bd84ee9861e503e Mon Sep 17 00:00:00 2001
From: Jim Meyering <meyering@redhat.com>
Date: Wed, 20 Apr 2011 09:46:27 +0200
Subject: tests: remove spurious syntax from a perl snippet

* tests/cp/sparse-fiemap: Remove spurious BEGIN {...} block.
---
 tests/cp/sparse-fiemap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/cp')

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
 
-- 
cgit v1.2.3-54-g00ecf