difforig Package-Stash-XS-0.28-Kokl6r diff -u Package-Stash-XS-0.28-Kokl6r/t/00-compile.t.orig --- Package-Stash-XS-0.28-Kokl6r/t/00-compile.t.orig 2013-07-16 18:17:11.000000000 +0200 +++ Package-Stash-XS-0.28-Kokl6r/t/00-compile.t 2016-06-10 09:34:14.000000000 +0200 @@ -58,7 +58,7 @@ # fake home for cpan-testers # no fake requested ## local $ENV{HOME} = tempdir( CLEANUP => 1 ); - like( qx{ $^X -Ilib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" ) + like( qx{ $^X -Mblib -e "require $_; print '$_ ok'" }, qr/^\s*$_ ok/s, "$_ loaded ok" ) for sort @modules; SKIP: { diff -u Package-Stash-XS-0.28-Kokl6r/t/addsub.t.orig --- Package-Stash-XS-0.28-Kokl6r/t/addsub.t.orig 2016-06-10 09:33:29.000000000 +0200 +++ Package-Stash-XS-0.28-Kokl6r/t/addsub.t 2016-06-10 09:33:50.000000000 +0200 @@ -30,7 +30,7 @@ is((Foo->funk())[0], 'Foo::funk', '... got the right value from the function'); my $line = (Foo->funk())[1]; -is $DB::sub{'Foo::funk'}, sprintf "%s:%d-%d", __FILE__, $line, $line, +is $DB::sub{'Foo::funk'}, sprintf("%s:%d-%d", __FILE__, $line, $line), '... got the right %DB::sub value for funk default args'; $foo_stash->add_symbol(