18 lines
857 B
Plaintext
18 lines
857 B
Plaintext
$OpenBSD: patch-inc_My_Build_Base_pm,v 1.2 2009/12/09 21:45:12 landry Exp $
|
|
--- inc/My/Build/Base.pm.orig Sat Dec 5 16:17:30 2009
|
|
+++ inc/My/Build/Base.pm Wed Dec 9 22:10:11 2009
|
|
@@ -370,12 +370,11 @@ sub awx_get_name {
|
|
my $e = sub { defined $_[0] ? ( $_[0] ) : () };
|
|
my $pv = sub { join '.', map { 0 + ( $_ || 0 ) }
|
|
( $_[0] =~ /(\d+)\.(\d{1,3})(\d{0,3})/ ) } ;
|
|
- my $base = join '-', $args{toolkit}, $pv->( $args{version} ),
|
|
+ my $base = join '-', $args{toolkit},
|
|
$e->( $args{debug} ? 'dbg' : undef ),
|
|
$e->( $args{unicode} ? 'uni' : undef ),
|
|
$e->( $args{mslu} ? 'mslu' : undef ),
|
|
$e->( $args{compiler} ),
|
|
- $e->( $args{compiler_version} ),
|
|
;
|
|
|
|
$base =~ s/\./_/g; $base =~ s/-/_/g;
|