diff options
| author | Abe Timmerman <abe@ztreet.demon.nl> | 2001-10-19 16:12:40 +0200 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-10-19 13:34:24 +0000 |
| commit | 9086c8821bf0aa9a6a023f1060a08cdd15a45d40 (patch) | |
| tree | 9d20a4221812386b6073b3bc1d7607c8285498ac /pod | |
| parent | 7a2320f073cbaf359816bc77318c26fa9aa5b461 (diff) | |
| download | perl-9086c8821bf0aa9a6a023f1060a08cdd15a45d40.tar.gz | |
Re: perlintro.pod
Message-Id: <ls40ttsmrr3rpjlm3dqhh8v60onsiopmuc@4ax.com>
p4raw-id: //depot/perl@12503
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perlintro.pod | 2 |
1 files changed, 1 insertions, 1 deletions
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"; } |