This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unused variable.
[perl5.git] / universal.c
index 0fe94d2..da41eb9 100644 (file)
@@ -536,7 +536,6 @@ XS(XS_utf8_is_utf8)
     {
        SV *    sv = ST(0);
  {
-  STRLEN len;
   if (SvUTF8(sv))
    XSRETURN_YES;
   else