[ViewVC] Diff of: cvs/rxvt-unicode/src/rxvtperl.xs

Comparing rxvt-unicode/src/rxvtperl.xs (file contents):
Revision 1.99 by root, Sat Feb 11 02:28:19 2006 UTC vs.
Revision 1.100 by root, Mon Feb 20 20:44:22 2006 UTC

           }
         OUTPUT:
         RETVAL
 SV *
-rxvt_term::_env ()
+rxvt_term::envv ()
+	ALIAS:
+        argv = 1
-	CODE:
+	PPCODE:
 {
-        if (THIS->envv)
+	stringvec *vec = ix ? THIS->argv : THIS->envv;
-          {
-            AV *av = newAV ();
+        EXTEND (SP, vec->size ());
-            for (char **i = THIS->envv->begin (); i != THIS->envv->end (); ++i)
+        for (char **i = vec->begin (); i != vec->end (); ++i)
-              if (*i)
+          if (*i)
-                av_push (av, newSVpv (*i, 0));
+            PUSHs (sv_2mortal (newSVpv (*i, 0)));
-            RETVAL = newRV_noinc ((SV *)av);
-          }
-        else
-          RETVAL = &PL_sv_undef;
 }
-        OUTPUT:
-        RETVAL
 int
 rxvt_term::pty_ev_events (int events = EVENT_UNDEF)
 	CODE:
         RETVAL = THIS->pty_ev.events;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines