This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: perlintro.pod
authorAbe Timmerman <abe@ztreet.demon.nl>
Fri, 19 Oct 2001 14:12:40 +0000 (16:12 +0200)
committerAbhijit Menon-Sen <ams@wiw.org>
Fri, 19 Oct 2001 13:34:24 +0000 (13:34 +0000)
Message-Id: <ls40ttsmrr3rpjlm3dqhh8v60onsiopmuc@4ax.com>

p4raw-id: //depot/perl@12503

pod/perlintro.pod

index 23abd83..8a80ef4 100644 (file)
@@ -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
 
 
     # 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";
     }
         print "Username is $1\n";
         print "Hostname is $2\n";
     }