diff options
Diffstat (limited to 'src/pl/plperl')
| -rw-r--r-- | src/pl/plperl/plperl.c | 7 | ||||
| -rw-r--r-- | src/pl/plperl/plperl.h | 2 | ||||
| -rw-r--r-- | src/pl/plperl/plperl_helpers.h | 8 |
3 files changed, 8 insertions, 9 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index ef56a4fab4c..de8cb0e0476 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -98,7 +98,7 @@ typedef struct plperl_interp_desc * * The refcount field counts the struct's reference from the hash table shown * below, plus one reference for each function call level that is using the - * struct. We can release the struct, and the associated Perl sub, when the + * struct. We can release the struct, and the associated Perl sub, when the * refcount goes to zero. **********************************************************************/ typedef struct plperl_proc_desc @@ -866,10 +866,11 @@ pp_require_safe(pTHX) RETPUSHYES; DIE(aTHX_ "Unable to load %s into plperl", name); + /* * In most Perl versions, DIE() expands to a return statement, so the next - * line is not necessary. But in versions between but not including 5.11.1 - * and 5.13.3 it does not, so the next line is necessary to avoid a + * line is not necessary. But in versions between but not including + * 5.11.1 and 5.13.3 it does not, so the next line is necessary to avoid a * "control reaches end of non-void function" warning from gcc. Other * compilers such as Solaris Studio will, however, issue a "statement not * reached" warning instead. diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h index 2b1dd9b6894..c86b47e9d23 100644 --- a/src/pl/plperl/plperl.h +++ b/src/pl/plperl/plperl.h @@ -102,6 +102,4 @@ void plperl_spi_freeplan(char *); void plperl_spi_cursor_close(char *); char *plperl_sv_to_literal(SV *, char *); - - #endif /* PL_PERL_H */ diff --git a/src/pl/plperl/plperl_helpers.h b/src/pl/plperl/plperl_helpers.h index ed99194ed1e..3e8aa7c4a26 100644 --- a/src/pl/plperl/plperl_helpers.h +++ b/src/pl/plperl/plperl_helpers.h @@ -42,8 +42,8 @@ static inline char * utf_e2u(const char *str) { char *ret = - (char *) pg_do_encoding_conversion((unsigned char *) str, strlen(str), - GetDatabaseEncoding(), PG_UTF8); + (char *) pg_do_encoding_conversion((unsigned char *) str, strlen(str), + GetDatabaseEncoding(), PG_UTF8); if (ret == str) ret = pstrdup(ret); @@ -89,8 +89,8 @@ sv2cstr(SV *sv) /* * Request the string from Perl, in UTF-8 encoding; but if we're in a - * SQL_ASCII database, just request the byte soup without trying to make it - * UTF8, because that might fail. + * SQL_ASCII database, just request the byte soup without trying to make + * it UTF8, because that might fail. */ if (GetDatabaseEncoding() == PG_SQL_ASCII) val = SvPV(sv, len); |