summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/URI/news.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-04-26 22:16:26 +0000
committerKarl Berry <karl@freefriends.org>2015-04-26 22:16:26 +0000
commit342e672574c4e67d510e46ab6acd0e21a7d0cf54 (patch)
tree79e04202d08c0404bbd780bd26c1e34710e539b6 /Master/tlpkg/tlperl/lib/URI/news.pm
parentbe2706af7c57a0ef0f4d4e9f684ca4ef74922a82 (diff)
(tl)perl 5.20.2 for windows, from siep
git-svn-id: svn://tug.org/texlive/trunk@37064 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/URI/news.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/URI/news.pm9
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;
}