1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/cpan/Test-Simple/t/More.t b/gnu/usr.bin/perl/cpan/Test-Simple/t/More.t
index 21958cf2b61..ce535e26d99 100755
--- a/gnu/usr.bin/perl/cpan/Test-Simple/t/More.t
+++ b/gnu/usr.bin/perl/cpan/Test-Simple/t/More.t
@@ -8,7 +8,7 @@ BEGIN {
 }
 
 use lib 't/lib';
-use Test::More tests => 53;
+use Test::More tests => 54;
 
 # Make sure we don't mess with $@ or $!.  Test at bottom.
 my $Err   = "this should not be touched";
@@ -174,6 +174,11 @@ is_deeply( { foo => $sub, bar => [1, $glob] },
            { foo => $sub, bar => [1, $glob] }
          );
 
+
+# rt.cpan.org 53469  is_deeply with regexes
+is_deeply( qr/a/, qr/a/, "same regex" );
+
+
 # These two tests must remain at the end.
 is( $@, $Err,               '$@ untouched' );
 cmp_ok( $!, '==', $Errno,   '$! untouched' );