diff options
| author | Karen Etheridge <ether@cpan.org> | 2020-07-30 20:46:36 -0700 |
|---|---|---|
| committer | Karen Etheridge <ether@cpan.org> | 2020-07-30 20:46:36 -0700 |
| commit | 3aa74965c037e7afeda3828c6eae8f0156710b79 (patch) | |
| tree | 6d1aaa8f469237b40e37207491a35b9cf9eb3610 | |
| parent | 7766c83400bb38cdde76cc88d2307ebc4d3f93b2 (diff) | |
| download | perl-3aa74965c037e7afeda3828c6eae8f0156710b79.tar.gz | |
fix typo in example
thanks Deji Adegbite! via https://github.com/OpusVL/perldoc.perl.org/issues/145
| -rw-r--r-- | pod/perlpacktut.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlpacktut.pod b/pod/perlpacktut.pod index 0ede0d5912..bf8f93a810 100644 --- a/pod/perlpacktut.pod +++ b/pod/perlpacktut.pod @@ -407,7 +407,7 @@ and that's why the low order byte is stored at the lower address. To unpack such a (unsigned) short we'll have to use code C<v>. A repeat count unpacks all 12 shorts: - my( $ip, $cs, $flags, $ax, $bx, $cd, $dx, $si, $di, $bp, $ds, $es ) = + my( $ip, $cs, $flags, $ax, $bx, $cx, $dx, $si, $di, $bp, $ds, $es ) = unpack( 'v12', $frame ); Alternatively, we could have used C<C> to unpack the individually |