Fix typo in Mkvcbuild.pl

adunstan · adunstan · commit 60e2fdf09286 · 2010-01-20T04:29:07.000Z
diff --git a/src/tools/msvc/Mkvcbuild.pm b/src/tools/msvc/Mkvcbuild.pm
@@ -3,7 +3,7 @@ package Mkvcbuild;
 #
 # Package that generates build files for msvc build
 #
-# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.49 2010/01/20 04:14:06 adunstan Exp $
+# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.50 2010/01/20 04:29:07 adunstan Exp $
 #
 use Carp;
 use Win32;
@@ -104,7 +104,7 @@ sub mkvcbuild
 						. $solution->{options}->{perl}
 						. '/lib/ExtUtils/typemap ' 
 						. "$plperlsrc$xs " 
-						. ">plperlsrc$xsc");
+						. ">$plperlsrc$xsc");
 				if ((!(-f "$plperlsrc$xsc")) || -z "$plperlsrc$xsc")
 				{
 					unlink("$plperlsrc$xsc"); # if zero size

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ package Mkvcbuild;`
`3`	`3`	`#`
`4`	`4`	`# Package that generates build files for msvc build`
`5`	`5`	`#`
`6`		`-# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.49 2010/01/20 04:14:06 adunstan Exp $`
	`6`	`+# $PostgreSQL: pgsql/src/tools/msvc/Mkvcbuild.pm,v 1.50 2010/01/20 04:29:07 adunstan Exp $`
`7`	`7`	`#`
`8`	`8`	`use Carp;`
`9`	`9`	`use Win32;`
`@@ -104,7 +104,7 @@ sub mkvcbuild`
`104`	`104`	`. $solution->{options}->{perl}`
`105`	`105`	`. '/lib/ExtUtils/typemap '`
`106`	`106`	`. "$plperlsrc$xs "`
`107`		`- . ">plperlsrc$xsc");`
	`107`	`+ . ">$plperlsrc$xsc");`
`108`	`108`	`if ((!(-f "$plperlsrc$xsc")) \|\| -z "$plperlsrc$xsc")`
`109`	`109`	`{`
`110`	`110`	`unlink("$plperlsrc$xsc"); # if zero size`