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 (file)
--- 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 );