Skip to content

Commit f87f75e

Browse files
committed
Put description text after AUTHOR
Now the parser can find the example author information.
1 parent 0714a62 commit f87f75e

File tree

2 files changed

+8
-6
lines changed

2 files changed

+8
-6
lines changed

categories/cookbook/06pattern-matching/06-02-match-letters.pl

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -2,16 +2,16 @@
22

33
=begin pod
44
5-
=TITLE Matching alphabetic wide characters
6-
7-
You want to match alphabetic characters which include unicode
5+
=TITLE Matching alphabetic wide characters
86
97
=AUTHOR stmuk
108
9+
You want to match alphabetic characters which include unicode
10+
1111
=end pod
1212

1313
my $var = "\c[OGHAM LETTER RUIS]";
14-
if $var ~~ /^<:letter>+$/ { # or just /^<:L>+$/ or even /^\w+$/
14+
if $var ~~ /^<:letter>+$/ { # or just /^<:L>+$/ or even /^\w+$/
1515
say "{$var} is purely alphabetic";
1616
}
1717

categories/cookbook/16processes/16-14-send-signal.pl

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,10 +4,10 @@
44
55
=TITLE send a signal
66
7-
You want to send a signal to a process on a UNIX-like OS
8-
97
=AUTHOR stmuk
108
9+
You want to send a signal to a process on a UNIX-like OS
10+
1111
=end pod
1212

1313
use NativeCall;
@@ -19,3 +19,5 @@
1919
kill($*PID, Signal::SIGHUP);
2020

2121
sleep 2;
22+
23+
# vim: expandtab shiftwidth=4 ft=perl6

0 commit comments

Comments
 (0)