Change 12503 by ams@ams-lustre on 2001/10/19 13:34:24
Subject: Re: perlintro.pod
From: Abe Timmerman <[EMAIL PROTECTED]>
Date: Fri, 19 Oct 2001 14:12:40 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/pod/perlintro.pod#3 edit
Differences ...
==== //depot/perl/pod/perlintro.pod#3 (text) ====
Index: perl/pod/perlintro.pod
--- perl/pod/perlintro.pod.~1~ Fri Oct 19 07:45:05 2001
+++ perl/pod/perlintro.pod Fri Oct 19 07:45:05 2001
@@ -560,7 +560,7 @@
# 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";
}
End of Patch.
