From 9086c8821bf0aa9a6a023f1060a08cdd15a45d40 Mon Sep 17 00:00:00 2001
From: Abe Timmerman <abe@ztreet.demon.nl>
Date: Fri, 19 Oct 2001 16:12:40 +0200
Subject: Re: perlintro.pod Message-Id:
 <ls40ttsmrr3rpjlm3dqhh8v60onsiopmuc@4ax.com>

p4raw-id: //depot/perl@12503
---
 pod/perlintro.pod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pod')

diff --git a/pod/perlintro.pod b/pod/perlintro.pod
index 23abd836c5..8a80ef4cee 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";
     }
-- 
cgit v1.2.1