This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #71870] Use of uninitialized value in bitwise and B::Deparse
[perl5.git] / dist / B-Deparse / t / deparse.t
index 191324a..0404ab3 100644 (file)
@@ -17,7 +17,7 @@ BEGIN {
     require feature;
     feature->import(':5.10');
 }
-use Test::More tests => 83;
+use Test::More tests => 84;
 use Config ();
 
 use B::Deparse;
@@ -615,3 +615,9 @@ my @b;
 @a = reverse @a;
 @b = reverse @b;
 ();
+####
+my($r, $s, @a);
+@a = split(/foo/, $s, 0);
+$r = qr/foo/;
+@a = split(/$r/, $s, 0);
+();