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