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