dist/Data-Dumper/t/qr.t

   1 #!perl -X
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 2;
   7 use 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 }