diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/news.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/URI/news.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Master/tlpkg/tlperl/lib/URI/news.pm b/Master/tlpkg/tlperl/lib/URI/news.pm index 1ffb419f673..fcecba2c53b 100644 --- a/Master/tlpkg/tlperl/lib/URI/news.pm +++ b/Master/tlpkg/tlperl/lib/URI/news.pm @@ -1,9 +1,10 @@ package URI::news; # draft-gilman-news-url-01 -require URI::_server; -@ISA=qw(URI::_server); - use strict; +use warnings; + +use parent 'URI::_server'; + use URI::Escape qw(uri_unescape); use Carp (); @@ -61,7 +62,7 @@ sub message Carp::croak("Message must contain '\@'") unless $_[0] =~ /\@/; } my $old = $self->_group(@_); - return unless $old =~ /\@/; + return undef unless $old =~ /\@/; return $old; } |