From: Paul Johnson <paul@pjcj.net>
Date: Tue, 7 Sep 2004 15:13:51 +0000 (+0200)
Subject: perlintro.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59ca07c7edc9811274fdf723986979460325278a;p=p5sagit%2Fp5-mst-13.2.git

perlintro.pod
Message-ID: <20040907131351.GD2513@pjcj.net>

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

diff --git a/pod/perlintro.pod b/pod/perlintro.pod
index 7429dfb..cb115ec 100644
--- a/pod/perlintro.pod
+++ b/pod/perlintro.pod
@@ -560,7 +560,7 @@ The results end up in C<$1>, C<$2> and so on.
 
     # a cheap and nasty way to break an email address up into parts
 
-    if ($email =~ /([^@])+@(.+)/) {
+    if ($email =~ /([^@]+)@(.+)/) {
         print "Username is $1\n";
         print "Hostname is $2\n";
     }