From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 23 Jul 2001 17:22:37 +0000 (+0000)
Subject: Test tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ad8fe22763798a32af6a3ef0934bfb712ab5a7e1;p=p5sagit%2Fp5-mst-13.2.git

Test tweak.

p4raw-id: //depot/perl@11452
---

diff --git a/ext/B/Deparse.t b/ext/B/Deparse.t
index 20cef75..0aff882 100644
--- a/ext/B/Deparse.t
+++ b/ext/B/Deparse.t
@@ -102,13 +102,11 @@ $a =~ s/-e syntax OK\n//g;
 $a =~ s{\\340\\242}{\\s} if (ord("\\") == 224); # EBCDIC, cp 1047 or 037
 $a =~ s{\\274\\242}{\\s} if (ord("\\") == 188); # $^O eq 'posix-bc'
 $b = <<'EOF';
-
 LINE: while (defined($_ = <ARGV>)) {
     chomp $_;
     our(@F) = split(" ", $_, 0);
     '???';
 }
-
 EOF
 print "# [$a]\n\# vs expected\n# [$b]\nnot " if $a ne $b;
 print "ok " . $i++ . "\n";