From: Spiros Denaxas <spiros@lokku.com>
Date: Mon, 19 Nov 2007 23:43:11 +0000 (+0000)
Subject: [Patch] perlboot.pod / added semicolons
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bb32c4e1d455c0d04e8f1f39328ad705baef7aef;p=p5sagit%2Fp5-mst-13.2.git

[Patch] perlboot.pod / added semicolons
From: "Spiros Denaxas" <spiros@lokku.com>
Message-ID: <bba689ec0711191543l31c7b3faw690d5fd7c5574823@mail.gmail.com>

p4raw-id: //depot/perl@32410
---

diff --git a/pod/perlboot.pod b/pod/perlboot.pod
index e0cd32b..6e3f5ac 100644
--- a/pod/perlboot.pod
+++ b/pod/perlboot.pod
@@ -26,7 +26,7 @@ Let's let the animals talk for a moment:
       print "a Horse goes neigh!\n";
     }
     sub Sheep::speak {
-      print "a Sheep goes baaaah!\n"
+      print "a Sheep goes baaaah!\n";
     }
 
     Cow::speak;
@@ -106,7 +106,7 @@ example:
       print "a Horse goes neigh!\n";
     }
     sub Sheep::speak {
-      print "a Sheep goes baaaah!\n"
+      print "a Sheep goes baaaah!\n";
     }
 
     @pasture = qw(Cow Cow Horse Sheep Sheep);
@@ -172,7 +172,7 @@ This method provides the constant text for the sound itself.
       sub sound { "moooo" }
       sub speak {
 	my $class = shift;
-	print "a $class goes ", $class->sound, "!\n"
+	print "a $class goes ", $class->sound, "!\n";
       }
     }
 
@@ -184,7 +184,7 @@ returns C<moooo>.  But how different would this be for the C<Horse>?
       sub sound { "neigh" }
       sub speak {
 	my $class = shift;
-	print "a $class goes ", $class->sound, "!\n"
+	print "a $class goes ", $class->sound, "!\n";
       }
     }
 
@@ -200,7 +200,7 @@ definition for C<speak>:
     { package Animal;
       sub speak {
 	my $class = shift;
-	print "a $class goes ", $class->sound, "!\n"
+	print "a $class goes ", $class->sound, "!\n";
       }
     }
 
@@ -423,7 +423,7 @@ and the C<Horse> class:
   { package Animal;
     sub speak {
       my $class = shift;
-      print "a $class goes ", $class->sound, "!\n"
+      print "a $class goes ", $class->sound, "!\n";
     }
   }
   { package Horse;
@@ -574,7 +574,7 @@ C<Animal>, so let's put it there:
   { package Animal;
     sub speak {
       my $class = shift;
-      print "a $class goes ", $class->sound, "!\n"
+      print "a $class goes ", $class->sound, "!\n";
     }
     sub name {
       my $self = shift;