diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2006-10-29 21:03:21 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-10-29 22:01:17 +0000 |
| commit | 802134916c56985ba8dc700565240474646eb9f7 (patch) | |
| tree | 0d79e6fe642541b5df1c5b3cd90a8c4bd07b3af4 /t/lib | |
| parent | 0ff97f2b57e694b0bb55285a757e6418641ac31a (diff) | |
| download | perl-802134916c56985ba8dc700565240474646eb9f7.tar.gz | |
[PATHCH] Scalar::Util::readonly & compression (was RE: Change 29117: [PATCH] IO::Compress modules)
From: "Paul Marquess" <paul.marquess@ntlworld.com>
Message-ID: <02cf01c6fb9d$ade808a0$6501a8c0@myopwv.com>
Date: Sun, 29 Oct 2006 21:03:21 -0000
p4raw-id: //depot/perl@29140
Diffstat (limited to 't/lib')
| -rw-r--r-- | t/lib/compress/oneshot.pl | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/t/lib/compress/oneshot.pl b/t/lib/compress/oneshot.pl index 64588c2ea1..ebfd042359 100644 --- a/t/lib/compress/oneshot.pl +++ b/t/lib/compress/oneshot.pl @@ -165,9 +165,18 @@ sub run my $out ; my @x ; - eval { $a = $Func->(\$in, \$out, TrailingData => \"abc") ;} ; - like $@, mkErr("^$TopType: Parameter 'TrailingData' not writable"), - ' TrailingData output not writable'; + SKIP: + { + use Config; + + skip 'readonly + threads', 1 + if $Config{useithreads}; + + + eval { $a = $Func->(\$in, \$out, TrailingData => \"abc") ;} ; + like $@, mkErr("^$TopType: Parameter 'TrailingData' not writable"), + ' TrailingData output not writable'; + } eval { $a = $Func->(\$in, \$out, TrailingData => \@x) ;} ; like $@, mkErr("^$TopType: Parameter 'TrailingData' not a scalar reference"), |