This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
B.xs: remove redundant assignment
authorDavid Mitchell <davem@iabyn.com>
Fri, 19 Dec 2014 16:09:19 +0000 (16:09 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 19 Dec 2014 16:09:19 +0000 (16:09 +0000)
Follow-up to 500f40f555ee.

ext/B/B.xs

index 90bf8d5..52713fb 100644 (file)
@@ -1383,7 +1383,7 @@ aux_list(o, cv)
                 bool is_hash = FALSE;
 #ifdef USE_ITHREADS
                 PADLIST * const padlist = CvPADLIST(cv);
-                PAD *comppad = comppad = PadlistARRAY(padlist)[1];
+                PAD *comppad = PadlistARRAY(padlist)[1];
 #endif
 
                 EXTEND(SP, len);