This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: ed59ec6)
The one that got away in #7984.
authorMichael Stevens <mstevens@etla.org>
Tue, 5 Dec 2000 11:15:52 +0000 (11:15 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Dec 2000 12:34:54 +0000 (12:34 +0000)
Subject: Re: dTHR - what and why?
Message-ID: <20001205111552.A4647@firedrake.org>

p4raw-id: //depot/perl@7987

sv.h patch | blob | blame | history

diff --git a/sv.h b/sv.h
index 425acc3..b155ece 100644 (file)
--- a/sv.h
+++ b/sv.h
@@ -801,7 +801,6 @@ Taints an SV if tainting is enabled
 #define SvTAINT(sv)                    \
     STMT_START {                       \
        if (PL_tainting) {              \
-           dTHR;                       \
            if (PL_tainted)             \
                SvTAINTED_on(sv);       \
        }                               \
Unnamed repository; edit this file 'description' to name the repository.