This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
authorSlaven Rezic <slaven@rezic.de>
Mon, 17 Mar 2003 00:42:43 +0000 (01:42 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 17 Mar 2003 04:45:40 +0000 (04:45 +0000)
[ 19006]
Subject: Re: [Patch] Maintperl versioning for Cygwin
Message-ID: <87ptoqev4c.fsf@vran.herceg.de>
p4raw-link: @19006 on //depot/maint-5.8/perl: 65f9e441d42a0992031a7b25f809df40333410c5

p4raw-id: //depot/perl@19007
p4raw-integrated: from //depot/maint-5.8/perl@19005 'merge in'
cygwin/perlld.in (@19000..)

cygwin/perlld.in

index b33d0e2..8055054 100644 (file)
@@ -46,7 +46,8 @@ if ($args !~ /\-o (\S+)/) {
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
-  my $v_e_r_s = '5_9_0';
+  my $v_e_r_s;
+  ($v_e_r_s = sprintf("%vd", $^V)) =~ tr/./_/; # v5.8.1 -> 5_8_1
   if ( $dllname =~ /.*perl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {
   if ( $dllname =~ /.*perl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {