This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX.xs: remove unused variable
authorDavid Mitchell <davem@iabyn.com>
Wed, 29 Nov 2017 08:24:21 +0000 (08:24 +0000)
committerDavid Mitchell <davem@iabyn.com>
Wed, 29 Nov 2017 08:24:21 +0000 (08:24 +0000)
ext/POSIX/POSIX.xs

index 922f4d1..49d36a3 100644 (file)
@@ -3565,7 +3565,6 @@ strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
             GCC_DIAG_RESTORE;
             sv = sv_newmortal();
            if (buf) {
-                const U8 * first_variant;
                 STRLEN len = strlen(buf);
                sv_usepvn_flags(sv, buf, len, SV_HAS_TRAILING_NUL);
                if (       SvUTF8(fmt)