From: Steve Hay <SteveHay@planit.com>
Date: Thu, 27 Sep 2007 08:56:05 +0000 (+0000)
Subject: Fix test introduced in #31973 that failed on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bcfa18ea3505018c0cb95074f4c91195bf931eba;p=p5sagit%2Fp5-mst-13.2.git

Fix test introduced in #31973 that failed on Win32
(Win32 doesn't like the runperl() prog having newlines in it)

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

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index 175d540..315e378 100644
--- a/ext/B/t/concise.t
+++ b/ext/B/t/concise.t
@@ -413,12 +413,8 @@ $out = runperl ( switches => ["-MO=Concise,-stash=Data::Dumper,-src,-exec"],
 like($out, qr/FUNC: \*Data::Dumper::format_refaddr/,
      "stash rendering loads package as needed");
 
-my $prog = q{
-    package FOO;
-    sub bar { print "bar" }
-    package main;
-    FOO::bar();
-};
+my $prog = q{package FOO; sub bar { print "bar" } package main; FOO::bar(); };
+
 # this would fail if %INC used for -stash test
 $out = runperl ( switches => ["-MO=Concise,-src,-stash=FOO,-main"],
 		 prog => $prog, stderr => 1 );