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
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
573689d
)
s/\t/ /
author
Karen Etheridge
<ether@cpan.org>
Sat, 30 Dec 2023 22:32:05 +0000
(14:32 -0800)
committer
Karen Etheridge
<ether@cpan.org>
Sat, 30 Dec 2023 23:09:35 +0000
(15:09 -0800)
pod/perlvar.pod
patch
|
blob
|
blame
|
history
diff --git
a/pod/perlvar.pod
b/pod/perlvar.pod
index
6e27739
..
032dacd
100644
(file)
--- a/
pod/perlvar.pod
+++ b/
pod/perlvar.pod
@@
-1123,15
+1123,15
@@
This variable was added in 5.25.7
If you need access to this functionality in older Perls you can use this
function immediately after your regexp.
-
sub get_captures {
-
no strict 'refs';
+ sub get_captures {
+ no strict 'refs';
-
my $last_idx = scalar(@-) - 1;
-
my @arr = 1 .. $last_idx;
-
my @ret = map { $$_; } @arr;
+ my $last_idx = scalar(@-) - 1;
+ my @arr = 1 .. $last_idx;
+ my @ret = map { $$_; } @arr;
-
return @ret;
-
}
+ return @ret;
+ }
=item $MATCH