diff options
| author | Steve Hay <SteveHay@planit.com> | 2007-09-27 08:56:05 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2007-09-27 08:56:05 +0000 |
| commit | bcfa18ea3505018c0cb95074f4c91195bf931eba (patch) | |
| tree | 7f0a39dc671999e5333d30c2b5daeb42c3965644 /ext/B | |
| parent | fe6e2aaa2c31937159a13846da80056ec342c494 (diff) | |
| download | perl-bcfa18ea3505018c0cb95074f4c91195bf931eba.tar.gz | |
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
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/t/concise.t | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 175d54060a..315e3787c9 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 ); |