diff options
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 7 |
1 files changed, 4 insertions, 3 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. |