From: Slaven Rezic <slaven@rezic.de>
Date: Mon, 17 Mar 2003 00:42:43 +0000 (+0100)
Subject: Integrate:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ba7855cf16acea00cbf0cf8bbc7fbe37b8ac919;p=p5sagit%2Fp5-mst-13.2.git

Integrate:
[ 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..)
---

diff --git a/cygwin/perlld.in b/cygwin/perlld.in
index b33d0e2..8055054 100644
--- a/cygwin/perlld.in
+++ b/cygwin/perlld.in
@@ -46,7 +46,8 @@ if ($args !~ /\-o (\S+)/) {
     $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 {