From 7207e29d564e32c8ec2cb43eabae72ff68c02442 Mon Sep 17 00:00:00 2001 From: "coral@eekeek.org" Date: Fri, 28 Dec 2001 14:58:22 -0500 Subject: Pod whitespace cleanup, round 0. Message-Id: <200112290058.fBT0wMD26750@eekeek.org> p4raw-id: //depot/perl@13930 --- pod/perlpacktut.pod | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'pod/perlpacktut.pod') diff --git a/pod/perlpacktut.pod b/pod/perlpacktut.pod index 423ab03ae1..2c5f1ec8d0 100644 --- a/pod/perlpacktut.pod +++ b/pod/perlpacktut.pod @@ -109,7 +109,7 @@ numbers - which we've had to count by hand. So it's error-prone as well as horribly unfriendly. Or maybe we could use regular expressions: - + while (<>) { my($date, $desc, $income, $expend) = m|(\d\d/\d\d/\d{4}) (.{27}) (.{7})(.*)|; @@ -661,7 +661,7 @@ cannot be unpacked naively: # pack a message my $msg = pack( 'Z*Z*CA*C', $src, $dst, length( $sm ), $sm, $prio ); - + # unpack fails - $prio remains undefined! ( $src, $dst, $len, $sm, $prio ) = unpack( 'Z*Z*CA*C', $msg ); -- cgit v1.2.1