This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
s/\t/ /
authorKaren Etheridge <ether@cpan.org>
Sat, 30 Dec 2023 22:32:05 +0000 (14:32 -0800)
committerKaren Etheridge <ether@cpan.org>
Sat, 30 Dec 2023 23:09:35 +0000 (15:09 -0800)
pod/perlvar.pod

index 6e27739..032dacd 100644 (file)
@@ -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