Fix passing of PRODUCT_NAME to create_help.pl in windows build

vbwagner · vbwagner · commit 4eb3bd209b29 · 2018-02-28T17:04:39.000+03:00
diff --git a/src/tools/msvc/Solution.pm b/src/tools/msvc/Solution.pm
@@ -137,6 +137,9 @@ sub GenerateFiles
 		if ( /^PGPRO_VERSION="\$PACKAGE_VERSION\.(\d+)"/) {
 			$self->{pgprover} = $1;
 		}
+		if ( /^PRODUCT_NAME="([^"]+)"/ ) {
+			$self->{productname} = $1;
+		}
 	}
 	close($c);
 	confess "Unable to parse configure.in for all variables!"
@@ -420,6 +423,7 @@ sub GenerateFiles
 	{
 		print "Generating sql_help.h...\n";
 		chdir('src/bin/psql');
+		$ENV{"PRODUCT_NAME"} = $self->{productname};
 		system("perl create_help.pl ../../../doc/src/sgml/ref sql_help");
 		chdir('../../..');
 	}

Original file line number	Diff line number	Diff line change
`@@ -137,6 +137,9 @@ sub GenerateFiles`
`137`	`137`	`if ( /^PGPRO_VERSION="\$PACKAGE_VERSION\.(\d+)"/) {`
`138`	`138`	`$self->{pgprover} = $1;`
`139`	`139`	`}`
	`140`	`+ if ( /^PRODUCT_NAME="([^"]+)"/ ) {`
	`141`	`+ $self->{productname} = $1;`
	`142`	`+ }`
`140`	`143`	`}`
`141`	`144`	`close($c);`
`142`	`145`	`confess "Unable to parse configure.in for all variables!"`
`@@ -420,6 +423,7 @@ sub GenerateFiles`
`420`	`423`	`{`
`421`	`424`	`print "Generating sql_help.h...\n";`
`422`	`425`	`chdir('src/bin/psql');`
	`426`	`+ $ENV{"PRODUCT_NAME"} = $self->{productname};`
`423`	`427`	`system("perl create_help.pl ../../../doc/src/sgml/ref sql_help");`
`424`	`428`	`chdir('../../..');`
`425`	`429`	`}`