1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-24 04:33:24 +00:00

- Fix perl syntax with perl 5.24+

- While here, fix typo in documentation

PR:		190531
Submitted by:	vess@slavof.net
Approved by:	maintainer timeout (daemon, 2.5 years)
MFH:		2016Q4
This commit is contained in:
Dmitry Marakasov 2016-11-24 09:57:15 +00:00
parent 0bd90a15a5
commit d34c91c4e5
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=426998
3 changed files with 23 additions and 1 deletions

View File

@ -3,7 +3,7 @@
PORTNAME= I18N-LangTags
PORTVERSION= 0.35
PORTREVISION= 1
PORTREVISION= 2
CATEGORIES= misc perl5
MASTER_SITES= CPAN
PKGNAMEPREFIX= p5-

View File

@ -0,0 +1,11 @@
--- lib/I18N/LangTags.pm.orig 2004-10-07 07:26:33 UTC
+++ lib/I18N/LangTags.pm
@@ -489,7 +489,7 @@ lookup in %greetings fails. That's the
You could instead do lookups on $wanted with:
use I18N::LangTags qw(same_language_tag);
- my $repsonse = '';
+ my $response = '';
foreach my $l2 (keys %greetings) {
if(same_language_tag($wanted, $l2)) {
$response = $greetings{$l2};

View File

@ -0,0 +1,11 @@
--- lib/I18N/LangTags/Detect.pm.orig 2004-06-21 05:47:55 UTC
+++ lib/I18N/LangTags/Detect.pm
@@ -137,7 +137,7 @@ sub _try_use { # Basically a wrapper a
my $module = $_[0]; # ASSUME sane module name!
{ no strict 'refs';
return($tried{$module} = 1)
- if defined(%{$module . "::Lexicon"}) or defined(@{$module . "::ISA"});
+ if %{$module . "::Lexicon"} or @{$module . "::ISA"};
# weird case: we never use'd it, but there it is!
}