utf8.c: Forbid zero-length malformation under DEBUGGING

[perl5.git] / dist / PathTools / Cwd.xs

diff --git a/dist/PathTools/Cwd.xs b/dist/PathTools/Cwd.xs
index 7206260..c6c600b 100644 (file)
--- a/dist/PathTools/Cwd.xs
+++ b/dist/PathTools/Cwd.xs
@@ -1,10 +1,4 @@
 /*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
  * ex: set ts=8 sts=4 sw=4 et:
  */
 
@@ -430,7 +424,7 @@ int Perl_getcwd_sv(pTHX_ SV *sv)
 #endif
 
 #if USE_MY_CXT
-# define MY_CXT_KEY "Cwd::_guts"XS_VERSION
+# define MY_CXT_KEY "Cwd::_guts" XS_VERSION
 typedef struct {
     SV *empty_string_sv, *slash_string_sv;
 } my_cxt_t;
@@ -541,6 +535,7 @@ THX_unix_canonpath(pTHX_ SV *path)
     *o = 0;
     SvPOK_on(retval);
     SvCUR_set(retval, o - SvPVX(retval));
+    SvTAINT(retval);
     return retval;
 }