Re: [Module::Build] Archive::Tar file format

[Randy W. S. <Ra...@Th...>]

On 1/8/2004 12:04 AM, Randy W. Sims wrote:

> +sub _varchname {
> +# copied from PPM.pm
> +  my $varchname = $Config{archname};
> +  # Append "-5.8" to architecture name for Perl 5.8 and later
> +  if (length($^V) && ord(substr($^V,1)) >= 8) {
> +    $varchname .= sprintf("-%d.%d", ord($^V), ord(substr($^V,1)));
> +  }
> +}

Of course there should be a return $varchname at the end of that sub.