[perl5.git] / dist / Data-Dumper / t / qr.t

#!perl -X

BEGIN {
    require Config; import Config;
    no warnings 'once';
    if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
	print "1..0 # Skip: Data::Dumper was not built\n";
	exit 0;
    }
}

use strict;
use Test::More tests => 1;
use Data::Dumper;

TODO: {
    local $TODO = "RT#58608: Data::Dumper and slashes within qr";
    my $q = q| \/ |;
    use Data::Dumper;
    my $qr = qr{$q};
    eval Dumper $qr;
    ok(!$@);
}
Commit	Line	Data
628491b6 AC	1	#!perl -X
	2
	3	BEGIN {
	4	require Config; import Config;
	5	no warnings 'once';
	6	if ($Config{'extensions'} !~ /\bData\/Dumper\b/) {
	7	print "1..0 # Skip: Data::Dumper was not built\n";
	8	exit 0;
	9	}
	10	}
	11
	12	use strict;
	13	use Test::More tests => 1;
	14	use Data::Dumper;
	15
	16	TODO: {
	17	local $TODO = "RT#58608: Data::Dumper and slashes within qr";
	18	my $q = q\| \/ \|;
	19	use Data::Dumper;
	20	my $qr = qr{$q};
	21	eval Dumper $qr;
	22	ok(!$@);
	23	}