X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/aa51dd4123784e6e747b83403a96885ffb248802..4e848ca977b29932dcb7cc8c716cb661868cb91c:/pod/perlpacktut.pod

diff --git a/pod/perlpacktut.pod b/pod/perlpacktut.pod
index 7d2126a..2ce5662 100644
--- a/pod/perlpacktut.pod
+++ b/pod/perlpacktut.pod
@@ -73,14 +73,13 @@ remains.
 The inverse operation - packing byte contents from a string of hexadecimal
 digits - is just as easily written. For instance:
 
-   my $s = pack( 'H2' x 10, map { "3$_" } ( 0..9 ) );
+   my $s = pack( 'H2' x 10, 30..39 );
    print "$s\n";
 
 Since we feed a list of ten 2-digit hexadecimal strings to C<pack>, the
 pack template should contain ten pack codes. If this is run on a computer
 with ASCII character coding, it will print C<0123456789>.
 
-
 =head1 Packing Text
 
 Let's suppose you've got to read in a data file like this: