diff --git a/src/tools/msvc/vcregress.pl b/src/tools/msvc/vcregress.pl
index 5bc8dbc7fc5..a5fbb55d2b4 100644
--- a/src/tools/msvc/vcregress.pl
+++ b/src/tools/msvc/vcregress.pl
@@ -18,6 +18,7 @@ my $startdir = getcwd();
 chdir "../../.." if (-d "../../../src/tools/msvc");
 
 my $topdir = getcwd();
+my $tmp_installdir = "$topdir/tmp_install";
 
 require 'src/tools/msvc/config_default.pl';
 require 'src/tools/msvc/config.pl' if (-f 'src/tools/msvc/config.pl');
@@ -465,6 +466,12 @@ sub GetTests
 	return "";
 }
 
+sub InstallTemp
+{
+   print "Setting up temp install\n\n";
+   Install("$tmp_installdir", "all", $config);
+}
+
 sub usage
 {
 	print STDERR