]> git.vpit.fr Git - perl/modules/Variable-Magic.git/blobdiff - Magic.xs
count isn't used anymore in vmg_svt_len()
[perl/modules/Variable-Magic.git] / Magic.xs
index dfce918d55c300915f07bcf212a47e538912462d..76e88216920933deb17c06986a20112e7060d73f 100644 (file)
--- a/Magic.xs
+++ b/Magic.xs
@@ -550,7 +550,6 @@ STATIC U32 vmg_svt_len(pTHX_ SV *sv, MAGIC *mg) {
  U32 ret;
 
  dSP;
- int count;
 
  has_array = SvTYPE(sv) == SVt_PVAV;
 
@@ -570,7 +569,7 @@ STATIC U32 vmg_svt_len(pTHX_ SV *sv, MAGIC *mg) {
  }
  PUTBACK;
 
- count = call_sv(SV2MGWIZ(mg->mg_ptr)->cb_len, G_SCALAR);
+ call_sv(SV2MGWIZ(mg->mg_ptr)->cb_len, G_SCALAR);
 
  SPAGAIN;
  svr = POPs;