Add 'use utf8;' to intro

xslate · Jul 28, 2011 · 660f042 · 660f042
1 parent a77d548
commit 660f042
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/example/perlbook.pl b/example/perlbook.pl
@@ -1,6 +1,8 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
+use utf8;
+
 use Encode qw(encode_utf8);
 
 use FindBin qw($Bin);

diff --git a/intro.html b/intro.html
@@ -37,6 +37,7 @@ <h3>Script: perlbook.pl</h3>
         <pre><code><span class="comment">#!/usr/bin/env perl
 </span><span class="keyword">use</span> <span class="pragma">strict</span><span class="structure">;</span>
 <span class="keyword">use</span> <span class="pragma">warnings</span><span class="structure">;</span>
+<span class="keyword">use</span> <span class="pragma">utf8</span><span class="structure">;</span>
 <span class="keyword">use</span> <span class="word">Encode</span> <span class="words">qw(encode_utf8)</span><span class="structure">;</span>
 
 <span class="keyword">use</span> <span class="word">FindBin</span> <span class="words">qw($Bin)</span><span class="structure">;</span>
@@ -106,7 +107,7 @@ <h3>Template: templates/perlbook.tx</h3>
 &lt;/ol&gt;
 
 &lt;pre&gt;
-$books = 
+$books =
     : $books | dump
 &lt;/pre&gt;
 
@@ -133,7 +134,7 @@ <h3>Output:</h3>
 &lt;/ol&gt;
 
 &lt;pre&gt;
-$books = 
+$books =
 (
   &amp;apos;978-0596000271&amp;apos; =&amp;gt; {
     name =&amp;gt; &amp;apos;Programming Perl&amp;apos;,