X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Name.xs;fp=Name.xs;h=0c99536287f5a5be16d9a725815f606eabbe5f7b;hb=a89f397501b19e49c27ef597edace8498ed6875d;hp=d7fd127edf51206d57dbe6de3ef968a26dd419ec;hpb=67523925ccdb8365504f86d34570e2cc5e8847a0;p=p5sagit%2FSub-Name.git

diff --git a/Name.xs b/Name.xs
index d7fd127..0c99536 100644
--- a/Name.xs
+++ b/Name.xs
@@ -71,7 +71,8 @@ subname(name, sub)
 	/* under debugger, provide information about sub location */
 	if (PL_DBsub && CvGV(cv)) {
 		HV *hv = GvHV(PL_DBsub);
-
+		SV** old_data;
+		
 		char* new_pkg = HvNAME(stash);
 
 		char* old_name = GvNAME( CvGV(cv) );
@@ -87,7 +88,7 @@ subname(name, sub)
 		strcat(full_name, "::");
 		strcat(full_name, old_name);
 
-		SV** old_data = hv_fetch(hv, full_name, strlen(full_name), 0);
+		old_data = hv_fetch(hv, full_name, strlen(full_name), 0);
 
 		if (old_data) {
 			strcpy(full_name, new_pkg);