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;