This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix test introduced in #31973 that failed on Win32
[perl5.git] / ext / B / t / concise.t
index 175d540..315e378 100644 (file)
@@ -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 );