diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-05-19 11:07:29 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-05-19 11:07:29 +0100 |
commit | 2913b40e5d98ac5a17648839dc32086276c19d8b (patch) | |
tree | d21930696349f11584bd048f896367a781be31f5 /pp.c | |
parent | d91994bbc0e42c43e68faecbd97f62eb6c6a12c7 (diff) | |
download | perl-2913b40e5d98ac5a17648839dc32086276c19d8b.tar.gz |
Remove duplicate code from pp_study(), caused by a4f4e9060b702ac8.
The duplicated code could have had no effect - for the case of pos <= 0
pp_study had already returned NO. The second call to SvPV() would have had no
side effects, because scalars with side effects don't have SvPOK() true, so
would also have already returned NO.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -728,10 +728,6 @@ PP(pp_study) } PL_lastscream = SvREFCNT_inc_simple(sv); - s = (unsigned char*)(SvPV(sv, len)); - pos = len; - if (pos <= 0) - RETPUSHNO; if (pos > PL_maxscream) { if (PL_maxscream < 0) { PL_maxscream = pos + 80; |