Thanks to visit codestin.com Credit goes to github.com
We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 947a350 commit 9daefffCopy full SHA for 9daefff
src/test/recovery/t/017_shm.pl
@@ -3,6 +3,7 @@
3
#
4
use strict;
5
use warnings;
6
+use Config;
7
use IPC::Run 'run';
8
use PostgresNode;
9
use Test::More;
@@ -11,6 +12,14 @@
11
12
13
plan tests => 5;
14
15
+# See PostgresNode
16
+my $vfs_path = '';
17
+if ($Config{osname} eq 'msys')
18
+{
19
+ $vfs_path = `cd / && pwd -W`;
20
+ chomp $vfs_path;
21
+}
22
+
23
my $tempdir = TestLib::tempdir;
24
my $port;
25
@@ -97,7 +106,7 @@ sub init_start
97
106
$gnat->safe_psql('postgres', <<EOSQL);
98
107
CREATE FUNCTION wait_pid(int)
99
108
RETURNS void
100
- AS '$ENV{REGRESS_SHLIB}'
109
+ AS '$vfs_path$ENV{REGRESS_SHLIB}'
101
110
LANGUAGE C STRICT;
102
111
EOSQL
103
112
my $slow_query = 'SELECT wait_pid(pg_backend_pid())';
0 commit comments