index 3e1c3863c4fe1f4e66b6869e129ae70502db688a..33869fecc975864886a978fc4a5f48c273688f10 100644 (file)
@@ -499,7 +499,7 @@ my $block_size = $node->safe_psql('postgres', 'SHOW block_size;');
system_or_bail 'pg_ctl', '-D', $pgdata, 'stop';
open $file, '+<', "$pgdata/$file_corrupt1";
seek($file, $pageheader_size, 0);
-syswrite($file, '0円0円0円0円0円0円0円0円0円');
+syswrite($file, "0円0円0円0円0円0円0円0円0円");
close $file;
system_or_bail 'pg_ctl', '-D', $pgdata, 'start';
{
my $offset = $pageheader_size + $i * $block_size;
seek($file, $offset, 0);
- syswrite($file, '0円0円0円0円0円0円0円0円0円');
+ syswrite($file, "0円0円0円0円0円0円0円0円0円");
}
close $file;
system_or_bail 'pg_ctl', '-D', $pgdata, 'start';
# induce corruption in a second file
system_or_bail 'pg_ctl', '-D', $pgdata, 'stop';
open $file, '+<', "$pgdata/$file_corrupt2";
-seek($file, 4000, 0);
-syswrite($file, '0円0円0円0円0円0円0円0円0円');
+seek($file, $pageheader_size, 0);
+syswrite($file, "0円0円0円0円0円0円0円0円0円");
close $file;
system_or_bail 'pg_ctl', '-D', $pgdata, 'start';
index 5250b5a72863304d3286e402cb53e0140c19e056..74ad5ad7235cc66dd8358dee12e3c1b98fdebc61 100644 (file)
# Time to create some corruption
open my $file, '+<', "$pgdata/$file_corrupted";
seek($file, $pageheader_size, 0);
- syswrite($file, '0円0円0円0円0円0円0円0円0円');
+ syswrite($file, "0円0円0円0円0円0円0円0円0円");
close $file;
# Checksum checks on single relfilenode fail