From 6456ed936dc73d8eb3b96c076f47614bd724aafd Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Tue, 23 Oct 2007 22:09:24 +0000
Subject: [PATCH] VC++ warning fixes

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10032 626c5289-ae23-0410-ae9c-e8d60b6d4f22
---
 Lib/perl5/std_vector.i | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

diff --git a/Lib/perl5/std_vector.i b/Lib/perl5/std_vector.i
index 515b7ebfa..b1f722d4b 100644
--- a/Lib/perl5/std_vector.i
+++ b/Lib/perl5/std_vector.i
@@ -130,7 +130,6 @@ namespace std {
                     /* native sequence? */
                     AV *av = (AV *)SvRV($input);
                     if (SvTYPE(av) == SVt_PVAV) {
-                        SV **tv;
                         I32 len = av_len(av) + 1;
                         if (len == 0) {
                             /* an empty sequence can be of any type */
@@ -138,7 +137,7 @@ namespace std {
                         } else {
                             /* check the first element only */
                             T* obj;
-                            tv = av_fetch(av, 0, 0);
+                            SV **tv = av_fetch(av, 0, 0);
                             if (SWIG_ConvertPtr(*tv, (void **)&obj, 
                                                 $descriptor(T *),0) != -1)
                                 $1 = 1;
@@ -163,7 +162,6 @@ namespace std {
                     /* native sequence? */
                     AV *av = (AV *)SvRV($input);
                     if (SvTYPE(av) == SVt_PVAV) {
-                        SV **tv;
                         I32 len = av_len(av) + 1;
                         if (len == 0) {
                             /* an empty sequence can be of any type */
@@ -171,7 +169,7 @@ namespace std {
                         } else {
                             /* check the first element only */
                             T* obj;
-                            tv = av_fetch(av, 0, 0);
+                            SV **tv = av_fetch(av, 0, 0);
                             if (SWIG_ConvertPtr(*tv, (void **)&obj, 
                                                 $descriptor(T *),0) != -1)
                                 $1 = 1;
@@ -333,7 +331,6 @@ namespace std {
                     /* native sequence? */
                     AV *av = (AV *)SvRV($input);
                     if (SvTYPE(av) == SVt_PVAV) {
-                        SV **tv;
                         I32 len = av_len(av) + 1;
                         if (len == 0) {
                             /* an empty sequence can be of any type */
@@ -474,14 +471,13 @@ namespace std {
                     /* native sequence? */
                     AV *av = (AV *)SvRV($input);
                     if (SvTYPE(av) == SVt_PVAV) {
-                        SV **tv;
                         I32 len = av_len(av) + 1;
                         if (len == 0) {
                             /* an empty sequence can be of any type */
                             $1 = 1;
                         } else {
                             /* check the first element only */
-                            tv = av_fetch(av, 0, 0);
+                            SV **tv = av_fetch(av, 0, 0);
                             if (CHECK_T(*tv))
                                 $1 = 1;
                             else
@@ -505,14 +501,13 @@ namespace std {
                     /* native sequence? */
                     AV *av = (AV *)SvRV($input);
                     if (SvTYPE(av) == SVt_PVAV) {
-                        SV **tv;
                         I32 len = av_len(av) + 1;
                         if (len == 0) {
                             /* an empty sequence can be of any type */
                             $1 = 1;
                         } else {
                             /* check the first element only */
-                            tv = av_fetch(av, 0, 0);
+                            SV **tv = av_fetch(av, 0, 0);
                             if (CHECK_T(*tv))
                                 $1 = 1;
                             else