perldelta: Turn one-liner into a block of code

so the line isn’t too long.

diff --git a/pod/perldelta.pod b/pod/perldelta.pod
index 63a2da6..2143cd9 100644 (file)
--- a/pod/perldelta.pod
+++ b/pod/perldelta.pod
@@ -610,7 +610,12 @@ named captures that weren't matched as part of a regex ever since 5.10
 when they were introduced, e.g. this would consume over a hundred MB
 of memory:
 
-    perl -wle 'for (1..10_000_000) { if ("foo" =~ /(foo|(?<capture>bar))?/) { my $capture = $+{capture} } } system "ps -o rss $$"'
+    for (1..10_000_000) {
+       if ("foo" =~ /(foo|(?<capture>bar))?/) {
+           my $capture = $+{capture}
+       }
+    }
+    system "ps -o rss $$"'
 
 =item *