#!/usr/bin/perl -w
# RT #59502 Provokes error for B::Concise, B::Debug and B::Deparse
# https://rt.cpan.org/Ticket/Display.html?id=59502
# Fixed by Ben Morrow
use Test::More tests => 3;
BEGIN {
use_ok 'B::Generate';
use_ok 'B::Concise';
}
use Config;
my $runperl = $^X =~ m/\s/ ? qq{"$^X"} : $^X;
my $redir = "2>&1" unless $^O eq 'MSWin32';
if ($] >= 5.021002 and $Config{ccflags} =~ /-DPERL_OP_PARENT/) {
ok(1, "skip Concise combination with -DPERL_OP_PARENT");
} else {
my $result = `$runperl -Mblib -MB::Generate -MO=Concise -e1 $redir`;
ok ($result !~ /locate object method "NAME"/, "RT 59502");
}