[svn:parrot] r40387 - trunk/t/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sun Aug  2 14:45:49 2009
New Revision: 40387
URL: https://trac.parrot.org/parrot/changeset/40387

Log:
[t] put check for interpreter before his usage

Modified:
   trunk/t/src/extend.t

Modified: trunk/t/src/extend.t
==============================================================================
--- trunk/t/src/extend.t	Sun Aug  2 14:45:28 2009	(r40386)
+++ trunk/t/src/extend.t	Sun Aug  2 14:45:49 2009	(r40387)
@@ -732,11 +732,11 @@
     for (i = 1; i <= niter; i++) {
         printf("Starting interp %d\n", i);
         interp = Parrot_new(NULL);
-        Parrot_set_flag(interp, PARROT_DESTROY_FLAG);
-
         if (!interp)
             return 1;
 
+        Parrot_set_flag(interp, PARROT_DESTROY_FLAG);
+
         printf("Destroying interp %d\n", i);
         interp_cleanup(interp, 0);
     }