diff --git a/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl b/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl
index 8e8d3f0a02a..1241bf6c6a7 100644
--- a/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl
+++ b/src/bin/pg_basebackup/t/040_pg_createsubscriber.pl
@@ -30,8 +30,9 @@ sub generate_db
 
 	$dbname .= $suffix;
 
-	# Old IPC::Run mis-quotes command line arguments containing '"' on Windows
-	$dbname =~ tr/\"//d if ($windows_os);
+	# On Windows, older IPC::Run versions can mis-quote command line arguments
+	# containing double quote or backslash
+	$dbname =~ tr/\"\\//d if ($windows_os);
 
 	$node->command_ok(
 		[ 'createdb', $dbname ],