SecBSD's official ports repository

devel/p5-Alien-wxWidgets/patches/patch-inc_My_Build_Base_pm

@@ -0,0 +1,17 @@
+Index: inc/My/Build/Base.pm
+--- inc/My/Build/Base.pm.orig
++++ inc/My/Build/Base.pm
+@@ -443,12 +443,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;