diff options
| author | coral@eekeek.org <coral@eekeek.org> | 2001-12-28 14:58:22 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-29 15:35:00 +0000 |
| commit | 7207e29d564e32c8ec2cb43eabae72ff68c02442 (patch) | |
| tree | bb40d411a530f4479f2f567dd24c156f50cdd657 /pod/perlpacktut.pod | |
| parent | e0d72a37764501c52aeed41ca710cf763afa8755 (diff) | |
| download | perl-7207e29d564e32c8ec2cb43eabae72ff68c02442.tar.gz | |
Pod whitespace cleanup, round 0.
Message-Id: <200112290058.fBT0wMD26750@eekeek.org>
p4raw-id: //depot/perl@13930
Diffstat (limited to 'pod/perlpacktut.pod')
| -rw-r--r-- | pod/perlpacktut.pod | 4 |
1 files changed, 2 insertions, 2 deletions
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 ); |