diff options
| author | Paul Johnson <paul@pjcj.net> | 2004-09-07 17:13:51 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-09-07 12:57:58 +0000 |
| commit | 59ca07c7edc9811274fdf723986979460325278a (patch) | |
| tree | c6523152d2764648d359af2196cc84305536a16f /pod | |
| parent | 1c97260979b979af03b946d71d50e8e4c075665c (diff) | |
| download | perl-59ca07c7edc9811274fdf723986979460325278a.tar.gz | |
perlintro.pod
Message-ID: <20040907131351.GD2513@pjcj.net>
p4raw-id: //depot/perl@23276
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 7429dfb233..cb115ecb75 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"; } |