diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 2005-01-15 21:18:29 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 2005-01-15 21:18:29 +0000 |
| commit | 900aea5fee6e7e0e7e6e8c4f0192f99befa3a927 (patch) | |
| tree | 79ecffc72620d46df9fe0d71286e0e466415b7f5 /gnu/usr.bin/perl/pod/perlintro.pod | |
| parent | a529bb51c131f3975e0a7daa8eb3d2c865f3fc52 (diff) | |
perl 5.8.6 from CPAN
Diffstat (limited to 'gnu/usr.bin/perl/pod/perlintro.pod')
| -rw-r--r-- | gnu/usr.bin/perl/pod/perlintro.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gnu/usr.bin/perl/pod/perlintro.pod b/gnu/usr.bin/perl/pod/perlintro.pod index 7429dfb233e..cb115ecb757 100644 --- a/gnu/usr.bin/perl/pod/perlintro.pod +++ b/gnu/usr.bin/perl/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"; } |