diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-20 13:17:13 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-07-07 13:29:45 -0600 |
| commit | 0c0d42fffa5c2ddd284610f681b65d355471189b (patch) | |
| tree | cf5ff1e92e744a9f63064f9e05fd8dfefc37a2e1 /perl.c | |
| parent | 9b86a269bd3e508bb1ebe6040bdca141e0d6aee5 (diff) | |
| download | perl-0c0d42fffa5c2ddd284610f681b65d355471189b.tar.gz | |
perl.c: Use Strerror instead of strerror
The former works on more systems.
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -502,7 +502,7 @@ Perl_dump_sv_child(pTHX_ SV *sv) if (returned_errno || *buffer) { Perl_warn(aTHX_ "Debug leaking scalars child failed%s%.*s with errno" " %d: %s", (*buffer ? " at " : ""), (int) *buffer, buffer + 1, - returned_errno, strerror(returned_errno)); + returned_errno, Strerror(returned_errno)); } } #endif @@ -3834,7 +3834,7 @@ S_open_script(pTHX_ const char *scriptname, bool dosearch, bool *suidscript) && S_ISDIR(tmpstatbuf.st_mode)) Perl_croak(aTHX_ "Can't open perl script \"%s\": %s\n", CopFILE(PL_curcop), - strerror(EISDIR)); + Strerror(EISDIR)); return rsfp; } |