portgen: bring back camel-cased port names for Perl
OK afresh1@
This commit is contained in:
parent
0238a02a64
commit
0866aba594
@ -1,4 +1,4 @@
|
||||
# $OpenBSD: Port.pm,v 1.14 2019/05/12 16:38:15 afresh1 Exp $
|
||||
# $OpenBSD: Port.pm,v 1.15 2019/05/13 01:30:05 cwen Exp $
|
||||
#
|
||||
# Copyright (c) 2015 Giannis Tsaraias <tsg@openbsd.org>
|
||||
# Copyright (c) 2019 Andrew Hewus Fresh <afresh1@openbsd.org>
|
||||
@ -218,7 +218,9 @@ sub name_new_port
|
||||
# If the port name has uppercase letters
|
||||
# and we didn't find it that way in the ports tree already
|
||||
# we really want a lowercase name, so try again like that.
|
||||
if ( $name =~ /\p{Upper}/ ) {
|
||||
# The exception is for Perl that has traditionally
|
||||
# camel-cased names.
|
||||
if ( $name =~ /\p{Upper}/ and $prefix ne 'p5-' ) {
|
||||
return $self->name_new_port( lc $name );
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user