Subject: | test fixes for 5.16 and #74687 #73702 |
I've combined both patches in #74687 #73702, fixed it for perl5.8.5 B::Deperase 0.67 and also
fixed 5.16.
tested with all perls. just 5.8.4 fails because of schwern EUMM. works with older EUMM though.
or } expected while parsing object/hash, at character offset 400 (before ""author":["Ingy
d\x{f6}...") at /usr/local/lib/perl5/5.8.4/CPAN/Meta/Converter.pm line 23
--
Reini Urban
Subject: | YAML-0.79.patch |
difforig YAML-0.79
diff -u YAML-0.79/t/dump-code.t.orig
--- YAML-0.79/t/dump-code.t.orig 2012-01-02 01:44:27.000000000 -0600
+++ YAML-0.79/t/dump-code.t 2012-02-09 14:10:25.000000000 -0600
@@ -1,10 +1,14 @@
use t::TestYAML tests => 7;
+use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71
use B::Deparse;
if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; })
=~ 'refs') {
local $/;
- (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g;
+ (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g if $] < 5.015;
+ if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702]
+ $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
+ }
open DATA, '<', \$data;
}
diff -u YAML-0.79/t/dump-perl-types.t.orig
--- YAML-0.79/t/dump-perl-types.t.orig 2011-04-19 07:02:48.000000000 -0500
+++ YAML-0.79/t/dump-perl-types.t 2012-02-09 14:10:42.000000000 -0600
@@ -2,6 +2,18 @@
filters { perl => ['eval', 'yaml_dump'] };
+use YAML (); # [CPAN #74687] must load before B::Deparse for B::Deparse < 0.71
+use B::Deparse;
+if (new B::Deparse -> coderef2text ( sub { no strict; 1; use strict; 1; })
+ =~ 'refs') {
+ local $/;
+ (my $data = <DATA>) =~ s/use strict/use strict 'refs'/g;
+ if ($B::Deparse::VERSION > 0.67 and $B::Deparse::VERSION < 0.71) { # [CPAN #73702]
+ $data =~ s/use warnings;/BEGIN {\${^WARNING_BITS} = "UUUUUUUUUUUU\\001"}/g;
+ }
+ open DATA, '<', \$data;
+}
+
no_diff;
run_is perl => 'yaml';
@@ -36,7 +48,7 @@
--- !!perl/code |
{
use warnings;
- use strict 'refs';
+ use strict;
print "Hello, world\n";
}
@@ -82,7 +94,7 @@
CODE: !!perl/code |
{
use warnings;
- use strict 'refs';
+ use strict;
print "Hello, world\n";
}