This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pad.c:pad_alloc: Remove redundant IS_PADGV
[perl5.git] / pad.c
diff --git a/pad.c b/pad.c
index a342349..6320afb 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -773,8 +773,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype)
 #else
                    (SVs_PADMY|SVs_PADTMP)
 #endif
-                ) &&
-               !IS_PADGV(sv))
+                ))
                break;
        }
        if (konst) {