X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/86c11942206ec09dd2a486bb22552aa2f170e322..fb1ee0ec5828ec8a55002a46636da2e885a4fc4c:/universal.c

diff --git a/universal.c b/universal.c
index f8fa9cd..10dddb5 100644
--- a/universal.c
+++ b/universal.c
@@ -66,7 +66,7 @@ S_isa_lookup(pTHX_ HV *stash, const char *name, HV* name_stash,
     {
 	if (SvIV(subgen) == (IV)PL_sub_generation) {
 	    SV* sv;
-	    SV** svp = (SV**)hv_fetch(hv, name, len, FALSE);
+	    SV** const svp = (SV**)hv_fetch(hv, name, len, FALSE);
 	    if (svp && (sv = *svp) != (SV*)&PL_sv_undef) {
 	        DEBUG_o( Perl_deb(aTHX_ "Using cached ISA %s for package %s\n",
 				  name, hvname) );
@@ -435,7 +435,7 @@ XS(XS_version_stringify)
 	  Perl_croak(aTHX_ "Usage: version::stringify(lobj, ...)");
      SP -= items;
      {
-	  SV *	lobj = Nullsv;
+	  SV *	lobj;
 
 	  if (sv_derived_from(ST(0), "version")) {
 	       lobj = SvRV(ST(0));
@@ -457,7 +457,7 @@ XS(XS_version_numify)
 	  Perl_croak(aTHX_ "Usage: version::numify(lobj, ...)");
      SP -= items;
      {
-	  SV *	lobj = Nullsv;
+	  SV *	lobj;
 
 	  if (sv_derived_from(ST(0), "version")) {
 	       lobj = SvRV(ST(0));
@@ -479,7 +479,7 @@ XS(XS_version_normal)
 	  Perl_croak(aTHX_ "Usage: version::normal(lobj, ...)");
      SP -= items;
      {
-	  SV *	lobj = Nullsv;
+	  SV *	lobj;
 
 	  if (sv_derived_from(ST(0), "version")) {
 	       lobj = SvRV(ST(0));
@@ -501,7 +501,7 @@ XS(XS_version_vcmp)
 	  Perl_croak(aTHX_ "Usage: version::vcmp(lobj, ...)");
      SP -= items;
      {
-	  SV *	lobj = Nullsv;
+	  SV *	lobj;
 
 	  if (sv_derived_from(ST(0), "version")) {
 	       lobj = SvRV(ST(0));
@@ -513,7 +513,7 @@ XS(XS_version_vcmp)
 	       SV	*rs;
 	       SV	*rvs;
 	       SV * robj = ST(1);
-	       IV	 swap = (IV)SvIV(ST(2));
+	       const IV	 swap = (IV)SvIV(ST(2));
 
 	       if ( ! sv_derived_from(robj, "version") )
 	       {
@@ -850,7 +850,7 @@ XS(XS_PerlIO_get_layers)
 	if (!isGV(sv)) {
 	     if (SvROK(sv) && isGV(SvRV(sv)))
 		  gv = (GV*)SvRV(sv);
-	     else
+	     else if (SvPOKp(sv))
 		  gv = gv_fetchsv(sv, FALSE, SVt_PVIO);
 	}