This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make Deparse.t test just added less sensitive
authorFather Chrysostomos <sprout@cpan.org>
Sat, 25 Oct 2014 03:36:22 +0000 (20:36 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 25 Oct 2014 03:36:22 +0000 (20:36 -0700)
I don’t know why, but the ‘-e syntax OK’ comes out last on my machine
but first on dromedary.

lib/B/Deparse.t

index 66127ae..98a19c8 100644 (file)
@@ -325,7 +325,7 @@ like($a, qr/my sub __DATA__;\n\(\);\nCORE::__DATA__/,
 
 # sub declarations
 $a = readpipe qq`$^X $path "-MO=Deparse" -e "sub foo{}" 2>&1`;
-like($a, qr/^sub foo\s*\{\s+\}/, 'sub declarations');
+like($a, qr/sub foo\s*\{\s+\}/, 'sub declarations');
 
 
 done_testing($tests);