Bug #34084 for PPM: append "-5.10" to architecture string

Fri Mar 14 10:02:16 2008 RKOBES [...] cpan.org - Ticket created

CC:	ADAMK [...] cpan.org
Subject:	append "-5.10" to architecture string

Hi Murray, Using PPM with perl-5.10 requires a patch to PPM.pm to append "-5.10" to the architecture string, so that PPM correctly identifies ppm packages appropriate for perl-5.10. A patch to do this is found at http://www.perlmonks.org/?node_id=659553 which contains further discussion. It would also be nice to incorporate the patch described in http://rt.cpan.org/Ticket/Display.html?id=28794 to handle zip files, which some repositories (notably the one at http://trouchelle.com/ppm/) use. These patches to the CPAN version of PPM would make it easier to include PPM within the Strawberry Perl distribution: http://use.perl.org/~Alias/journal/35892 Thanks. best regards, Randy

Sun Mar 01 11:33:57 2009 RIVY [...] cpan.org - Correspondence added

Here's another fix that can be used by current users as well until it's incorporated into Module::Build (see http://www.perlmonks.org/?node_id=747320). It can be incorporated directly into custom Build.PL code to bypass the BUG until fixed. <code> ##BUGBYPASS: [for Module::Build v0.3 and perl v5.10+ $^V version string change] repairs incorrect version interpretation for perl v5.10+ (still works for 5.8 and earlier, as well) sub my_varchname { # Copied from PPMMaker.pm my ($self, $config) = @_; my $varchname = $config->{archname}; # Append "-5.8" to architecture name for Perl 5.8 and later #if (defined($^V) && ord(substr($^V,1)) >= 8) { #$varchname .= sprintf("-%d.%d", ord($^V), ord(substr($^V,1))); #} ## BUGFIX: send to Module::Build::PPMMaker and PPM if (defined($^V)) { my @v = split(/\./, sprintf(qq{%vd},$^V)); if ($v[1] >= 8) { $varchname .= '-'.$v[0].'.'.$v[1]; } } return $varchname; } </code>

Sun Mar 01 11:33:58 2009 The RT System itself - Status changed from 'new' to 'open'

Sun Mar 01 11:48:16 2009 RIVY [...] cpan.org - Requestor RIVY added

Sun Mar 01 14:23:20 2009 RKOBES [...] cpan.org - Correspondence added

On Sun Mar 01 11:33:57 2009, RIVY wrote: Show quoted text

> Here's another fix that can be used by current users as well until it's > incorporated into Module::Build (see > http://www.perlmonks.org/?node_id=747320). It can be incorporated > directly into custom Build.PL code to bypass the BUG until fixed. > > <code> > ##BUGBYPASS: [for Module::Build v0.3 and perl v5.10+ $^V version string > change] repairs incorrect version interpretation for perl v5.10+ (still > works for 5.8 and earlier, as well) > sub my_varchname { # Copied from PPMMaker.pm > my ($self, $config) = @_; > my $varchname = $config->{archname}; > # Append "-5.8" to architecture name for Perl 5.8 and later > #if (defined($^V) && ord(substr($^V,1)) >= 8) { > #$varchname .= sprintf("-%d.%d", ord($^V), ord(substr($^V,1))); > #} > ## BUGFIX: send to Module::Build::PPMMaker and PPM > if (defined($^V)) { > my @v = split(/\./, sprintf(qq{%vd},$^V)); > if ($v[1] >= 8) { > $varchname .= '-'.$v[0].'.'.$v[1]; > } > } > return $varchname; > } > </code>

The current (2.1.9) version of PPM.pm: http://cpansearch.perl.org/src/MURRAY/PPM-2.1.9/lib/PPM.pm contains the patch described at http://www.perlmonks.org/?node_id=659553 for this.