1#!perl -X 2 3use strict; 4use warnings; 5 6use Test::More tests => 2; 7use Data::Dumper; 8 9{ 10 my $q = q| \/ |; 11 use Data::Dumper; 12 my $qr = qr{$q}; 13 { 14 no strict 'vars'; 15 eval Dumper $qr; 16 } 17 ok(!$@, "Dumping $qr with XS") or diag $@, Dumper $qr; 18 local $Data::Dumper::Useperl = 1; 19 { 20 no strict 'vars'; 21 eval Dumper $qr; 22 } 23 ok(!$@, "Dumping $qr with PP") or diag $@, Dumper $qr; 24} 25