On Tue Aug 23 14:05:53 2016, SREZIC wrote:
Show quoted text> t/Data-Inspect.t fails with perl 5.25.x:
>
> PERL_DL_NONLAZY=1 "/bbbike/perl-5.25.4/bin/perl5.25.4" "-
> MExtUtils::Command::MM" "-MTest::Harness" "-e" "undef
> *Test::Harness::Switches; test_harness(0, 'blib/lib', 'blib/arch')"
> t/*.t
> Unescaped left brace in regex is illegal here in regex; marked by <--
> HERE in m/^#<IO::Dir #<GLOB NAME="GEN0" SCALAR=\\undef HASH={ <-- HERE
> "io_dir_path" => "\."} IO=#<IO::(?:Handle|File) #<IO>> GLOB=#<CIRCULAR
> REFERENCE 0x[\da-f]+> PACKAGE="Symbol">>$/ at t/Data-Inspect.t line
> 48.
> # Looks like your test exited with 2 just after 1.
> t/Data-Inspect.t ..
> Dubious, test returned 2 (wstat 512, 0x200)
> Failed 14/15 subtests
>
>
> Related discussion at p5p:
>
https://rt.perl.org/Ticket/Display.html?id=128139
The patch attached should address the problem.
Thank you very much.
Jim Keenan
diff -u -r t/Data-Inspect.t corrected_t/Data-Inspect.t
--- t/Data-Inspect.t 2010-03-14 16:15:50.000000000 -0400
+++ corrected_t/Data-Inspect.t 2016-12-20 11:30:49.537754383 -0500
@@ -45,7 +45,7 @@
# Inspect a common class
use IO::Dir;
my $dir = IO::Dir->new('.');
-like($insp->inspect($dir), qr/^#<IO::Dir #<GLOB NAME="GEN0" SCALAR=\\undef HASH={"io_dir_path" => "\."} IO=#<IO::(?:Handle|File) #<IO>> GLOB=#<CIRCULAR REFERENCE 0x[\da-f]+> PACKAGE="Symbol">>$/);
+like($insp->inspect($dir), qr/^#<IO::Dir #<GLOB NAME="GEN0" SCALAR=\\undef HASH=\{"io_dir_path" => "\."} IO=#<IO::(?:Handle|File) #<IO>> GLOB=#<CIRCULAR REFERENCE 0x[\da-f]+> PACKAGE="Symbol">>$/);
# Create a simple hash-based package and one with an inspect method
package Simple;
