NotificationsYou must be signed in to change notification settings
Fork6
Star31

Commit7a1527c

committed

Adjust perl style.

Per buildfarm member crake.

1 parentd60e61d commit7a1527cCopy full SHA for 7a1527c

File tree

2 files changed

-9

lines changed

src/bin/pg_amcheck/t
- 003_check.pl
- 004_verify_heapam.pl

2 files changed

-9

lines changed

`‎src/bin/pg_amcheck/t/003_check.pl`

Lines changed: 6 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,7 @@`
`10`	`10`	`# Returns the filesystem path for the named relation.`
`11`	`11`	`#`
`12`	`12`	`# Assumes the test node is running`
`13`		`-subrelation_filepath($$)`
	`13`	`+subrelation_filepath`
`14`	`14`	`{`
`15`	`15`	`my ($dbname,$relname) =@_;`
`16`	`16`
`@@ -24,7 +24,7 @@ ($$)`
`24`	`24`	`# Returns the name of the toast relation associated with the named relation.`
`25`	`25`	`#`
`26`	`26`	`# Assumes the test node is running`
`27`		`-subrelation_toast($$)`
	`27`	`+subrelation_toast`
`28`	`28`	`{`
`29`	`29`	`my ($dbname,$relname) =@_;`
`30`	`30`
`@@ -34,15 +34,14 @@ ($$)`
`34`	`34`	`WHERE c.oid = '$relname'::regclass`
`35`	`35`	`AND c.reltoastrelid != 0`
`36`	`36`	`));`
`37`		`-returnundefunlessdefined$rel;`
`38`	`37`	`return$rel;`
`39`	`38`	`}`
`40`	`39`
`41`	`40`	`# Adds the relation file for the given (dbname, relname) to the list`
`42`	`41`	`# to be corrupted by means of overwriting junk in the first page.`
`43`	`42`	`#`
`44`	`43`	`# Assumes the test node is running.`
`45`		`-subplan_to_corrupt_first_page($$)`
	`44`	`+subplan_to_corrupt_first_page`
`46`	`45`	`{`
`47`	`46`	`my ($dbname,$relname) =@_;`
`48`	`47`	`my$relpath = relation_filepath($dbname,$relname);`
`@@ -53,7 +52,7 @@ ($$)`
`53`	`52`	`# to be corrupted by means of removing the file..`
`54`	`53`	`#`
`55`	`54`	`# Assumes the test node is running`
`56`		`-subplan_to_remove_relation_file($$)`
	`55`	`+subplan_to_remove_relation_file`
`57`	`56`	`{`
`58`	`57`	`my ($dbname,$relname) =@_;`
`59`	`58`	`my$relpath = relation_filepath($dbname,$relname);`
`@@ -65,15 +64,15 @@ ($$)`
`65`	`64`	`# corrupted by means of removing the file.`
`66`	`65`	`#`
`67`	`66`	`# Assumes the test node is running.`
`68`		`-subplan_to_remove_toast_file($$)`
	`67`	`+subplan_to_remove_toast_file`
`69`	`68`	`{`
`70`	`69`	`my ($dbname,$relname) =@_;`
`71`	`70`	`my$toastname = relation_toast($dbname,$relname);`
`72`	`71`	`plan_to_remove_relation_file($dbname,$toastname)if ($toastname);`
`73`	`72`	`}`
`74`	`73`
`75`	`74`	`# Corrupts the first page of the given file path`
`76`		`-subcorrupt_first_page($)`
	`75`	`+subcorrupt_first_page`
`77`	`76`	`{`
`78`	`77`	`my ($relpath) =@_;`
`79`	`78`

`‎src/bin/pg_amcheck/t/004_verify_heapam.pl`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@`
`92`	`92`	`# perl hash with named fields. These fields exactly match the ones understood`
`93`	`93`	`# by write_tuple(), below. Returns a reference to this hash.`
`94`	`94`	`#`
`95`		`-subread_tuple ($$)`
	`95`	`+subread_tuple`
`96`	`96`	`{`
`97`	`97`	`my ($fh,$offset) =@_;`
`98`	`98`	`my ($buffer,%tup);`
`@@ -145,7 +145,7 @@ ($$)`
`145`	`145`	`# subset of fields modified. The function does no error checking. Use`
`146`	`146`	`# cautiously.`
`147`	`147`	`#`
`148`		`-subwrite_tuple($$$)`
	`148`	`+subwrite_tuple`
`149`	`149`	`{`
`150`	`150`	`my ($fh,$offset,$tup) =@_;`
`151`	`151`	`my$buffer =pack(HEAPTUPLE_PACK_CODE,`

0 commit comments

Comments

(0)

Movatterモバイル変換

Navigation Menu

Search code, repositories, users, issues, pull requests...

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Commit7a1527c

File tree

2 files changed

2 files changed

`‎src/bin/pg_amcheck/t/003_check.pl`

`‎src/bin/pg_amcheck/t/004_verify_heapam.pl`

0 commit comments