develooper Front page | perl.perl5.porters | Postings from November 2003

remove hardcoded version number from cygwin/perlld.in

Thread Next
From:
Yitzchak Scott-Thoennes
Date:
November 24, 2003 08:11
Subject:
remove hardcoded version number from cygwin/perlld.in
Message ID:
20031124161136.GC2656@efn.org
Patch to remove one of the many places version number needs to be changed:

--- perl/cygwin/Makefile.SHs.orig	2003-11-02 23:24:02.831793600 -0800
+++ perl/cygwin/Makefile.SHs	2003-11-17 13:51:32.298379200 -0800
@@ -53,8 +53,9 @@
 
 # perlld parameters
 #
-# this one is pretty mandatory
+# these ones are mandatory
 DLLWRAP = 'dllwrap'
+VERSION = '$version'
 
 # following are optional.
 WRAPDRIVER = gcc
@@ -73,7 +74,7 @@
 	-e s,@WRAPDRIVER@,\${WRAPDRIVER},g -e s,@DLLTOOL@,\${DLLTOOL},g \\
 	-e s,@AS@,\${AS},g -e s,@EXPORT_ALL@,\${EXPORT_ALL},g \\
 	-e s,@DEF_EXT@,\${DEF_EXT},g -e s,@EXP_EXT@,\${EXP_EXT},g \\
-	-e s,@LIB_EXT@,\${LIB_EXT},g \\
+	-e s,@LIB_EXT@,\${LIB_EXT},g -e s,@VERSION@,\${VERSION},g \\
 	${src}/cygwin/perlld.in >perlld
 
 !GROK!THIS!
--- perl/cygwin/perlld.in.orig	2003-05-26 05:37:29.000000000 -0700
+++ perl/cygwin/perlld.in	2003-11-17 13:22:14.671035200 -0800
@@ -46,7 +46,8 @@
     $path =~ s,[/\\](\.[/\\])*,/,g;
   }
   if ($dllname =~ /\./) { $libname =$`; } else { $libname =$dllname; };
-  my $v_e_r_s = '5_9_0';
+  my $v_e_r_s = '@VERSION@';
+  $v_e_r_s =~ tr/./_/;
   if ( $dllname =~ /libperl.*/) { 
     $dllname ="cygperl$v_e_r_s.dll";
   } else {
End of Patch.

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About