Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Added #ifndef WIN32 guards around debug() calls in XS stash

git-svn-id: svn://svn.tt2.org/tt/Template2/trunk@1237 d5a88997-0a34-4036-9ed2-92fb5d660d91
  • Loading branch information...
commit c230e3afcc2d333b0e8f11b218574545b0533840 1 parent d884f67
@abw authored
Showing with 6 additions and 0 deletions.
  1. +6 −0 xs/Stash.xs
View
6 xs/Stash.xs
@@ -814,19 +814,25 @@ static TT_RET list_op(pTHX_ SV *root, char *key, AV *args, SV **result) {
/* look for and execute XS version first */
if ((a = find_xs_op(key)) && a->list_f) {
+#ifndef WIN32
debug("calling internal list vmethod: %s\n", key);
+#endif
*result = a->list_f(aTHX_ (AV *) SvRV(root), args);
return TT_RET_CODEREF;
}
/* look for and execute perl version in Template::Stash module */
if ((code = find_perl_op(aTHX_ key, TT_LIST_OPS))) {
+#ifndef WIN32
debug("calling perl list vmethod: %s\n", key);
+#endif
*result = call_coderef(aTHX_ code, mk_mortal_av(aTHX_ root, args, NULL));
return TT_RET_CODEREF;
}
+#ifndef WIN32
debug("list vmethod not found: %s\n", key);
+#endif
/* not found */
*result = &PL_sv_undef;
Please sign in to comment.
Something went wrong with that request. Please try again.