Fix up IO::Compress tests

They were expecting \"abc" to return a constant value, but constant
folding no longer causes \ to return a read-only scalar.

diff --git a/cpan/IO-Compress/t/01misc.t b/cpan/IO-Compress/t/01misc.t
index 150fb69..6a6ad8c 100644 (file)
--- a/cpan/IO-Compress/t/01misc.t
+++ b/cpan/IO-Compress/t/01misc.t
@@ -79,6 +79,9 @@ sub My::testParseParameters()
         like $@, mkErr("Parameter 'fred' not writable"), 
                 "wanted writable, got readonly";
 
+        skip '\\ returns mutable value in 5.19.3', 1
+            if $] >= 5.019003;
+
         eval { ParseParameters(1, {'fred' => [Parse_writable_scalar, 0]}, fred => \'abc') ; };
         like $@, mkErr("Parameter 'fred' not writable"), 
                 "wanted writable, got readonly";

diff --git a/cpan/IO-Compress/t/compress/oneshot.pl b/cpan/IO-Compress/t/compress/oneshot.pl
index 14309ab..43c8dce 100644 (file)
--- a/cpan/IO-Compress/t/compress/oneshot.pl
+++ b/cpan/IO-Compress/t/compress/oneshot.pl
@@ -183,7 +183,7 @@ sub run
                 use Config;
 
                 skip 'readonly + threads', 1
-                    if $Config{useithreads};
+                    if $Config{useithreads} || $] >= 5.019003;
 
                 
                 eval { $a = $Func->(\$in, \$out, TrailingData => \"abc") ;} ;