From 84386201a46ee800a17acc907193d00d08d3abd1 Mon Sep 17 00:00:00 2001
From: Father Chrysostomos <sprout@cpan.org>
Date: Fri, 3 Feb 2012 22:45:38 -0800
Subject: [PATCH] Data::Dumper: qr.t: Add a pure-Perl TODO test

---
 dist/Data-Dumper/t/qr.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/dist/Data-Dumper/t/qr.t b/dist/Data-Dumper/t/qr.t
index f1a879d..b838a12 100644
--- a/dist/Data-Dumper/t/qr.t
+++ b/dist/Data-Dumper/t/qr.t
@@ -10,7 +10,7 @@ BEGIN {
 }
 
 use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
 use Data::Dumper;
 
 TODO: {
@@ -20,4 +20,7 @@ TODO: {
     my $qr = qr{$q};
     eval Dumper $qr;
     ok(!$@);
+    local $Data::Dumper::Useperl = 1;
+    eval Dumper $qr;
+    ok(!$@);
 }
-- 
1.8.3.1