Fixed [ 827907 ] argout objects not being wrapped properly (PATH).

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5213 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Lib/perl5/std_vector.i

@@ -141,7 +141,7 @@ namespace std {
             for (unsigned int i=0; i<len; i++) {
                 svs[i] = sv_newmortal();
                 SWIG_MakePtr(svs[i], (void*)&($1[i]), 
-                             $descriptor(T *), 0);
+                             $descriptor(T *), $shadow|$owner);
             }
             AV *myav = av_make(len, svs);
             delete[] svs;