This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unused variable.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 15 Jun 2003 15:01:26 +0000 (15:01 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 15 Jun 2003 15:01:26 +0000 (15:01 +0000)
p4raw-id: //depot/perl@19787

universal.c

index 0fe94d2..da41eb9 100644 (file)
@@ -536,7 +536,6 @@ XS(XS_utf8_is_utf8)
     {
        SV *    sv = ST(0);
  {
     {
        SV *    sv = ST(0);
  {
-  STRLEN len;
   if (SvUTF8(sv))
    XSRETURN_YES;
   else
   if (SvUTF8(sv))
    XSRETURN_YES;
   else