This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add missing bug numbers
[perl5.git]
/
t
/
re
/
qr.t
diff --git
a/t/re/qr.t
b/t/re/qr.t
index
c7461d4
..
7a7ca6a
100644
(file)
--- a/
t/re/qr.t
+++ b/
t/re/qr.t
@@
-72,7
+72,7
@@
for($'){
is $output, "5\n1: 5\n2: 5\n", q|/$qr/ with $'_ aliased to a match var|;
}
is $output, "5\n1: 5\n2: 5\n", q|/$qr/ with $'_ aliased to a match var|;
}
-# Make sure /$qr/ calls get-magic on its LHS (bug
~~~~~
).
+# Make sure /$qr/ calls get-magic on its LHS (bug
71470
).
{
my $scratch;
sub qrBug::TIESCALAR{bless[], 'qrBug'}
{
my $scratch;
sub qrBug::TIESCALAR{bless[], 'qrBug'}