From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Fri, 19 Oct 2001 14:12:40 +0000 (+0200)
Subject: Re: perlintro.pod
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9086c8821bf0aa9a6a023f1060a08cdd15a45d40;p=p5sagit%2Fp5-mst-13.2.git

Re: perlintro.pod
Message-Id: <ls40ttsmrr3rpjlm3dqhh8v60onsiopmuc@4ax.com>

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

diff --git a/pod/perlintro.pod b/pod/perlintro.pod
index 23abd83..8a80ef4 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";
     }