diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2016-09-08 22:17:34 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2016-09-10 14:11:18 -0700 |
| commit | bbd6d871a56f710514d051bb71c3909085b11daf (patch) | |
| tree | 85ef29d87a06b43b65b5fe83422ed8f8cb9dd8a3 /op.c | |
| parent | 9c426bfddbdd904fc37d276cc68e6f2ec04251f4 (diff) | |
| download | perl-bbd6d871a56f710514d051bb71c3909085b11daf.tar.gz | |
op.c: Avoid string cmp when unnecessary
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -8686,7 +8686,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, } /* don't copy new BEGIN CV to old BEGIN CV - RT #129099 */ - if (name && *name == 'B' && strEQ(name, "BEGIN")) + if (name && cv && *name == 'B' && strEQ(name, "BEGIN")) cv = NULL; if (cv) { /* must reuse cv if autoloaded */ |