At 12:07 PM +0200 10/2/07, Jos I. Boumans wrote:
>On 03 Sep 2007, at 00:23, John E. Malmberg wrote:
>>+ $pkg_namver =~ tr/\./_/ if $^O eq 'VMS';
>>+
>>+ for my $try ( File::Spec->rel2abs( File::Spec->catdir( $to, $pkg_namver
>>) ),
>> File::Spec->rel2abs( $ae->extract_path ),
>> ) {
>> ($dir = $try) && last if -d $try;
>
>The tr/// only changes the *first* . to an _, is this really what is intended?
>or should
>a /g be appended there? Most versions only have one . in them, but some have
>several if
>they use the x.y.z notation, or something even more exotic...
I think you're thinking s/// not tr///.
$ perl -e "$x = '0.1.2'; $x =~ tr/./_/; print $x;"
0_1_2
--
________________________________________
Craig A. Berry
mailto:[EMAIL PROTECTED]
"... getting out of a sonnet is much more
difficult than getting in."
Brad Leithauser
