[svn:parrot] r43309 - in branches/boehm_gc: lib/Parrot/Harness t

[bacek at svn.parrot.org]

Author: bacek
Date: Tue Dec 29 10:50:36 2009
New Revision: 43309
URL: https://trac.parrot.org/parrot/changeset/43309

Log:
Add G option to t/harness to support GC switch

Modified:
   branches/boehm_gc/lib/Parrot/Harness/Options.pm
   branches/boehm_gc/t/harness

Modified: branches/boehm_gc/lib/Parrot/Harness/Options.pm
==============================================================================
--- branches/boehm_gc/lib/Parrot/Harness/Options.pm	Tue Dec 29 10:50:13 2009	(r43308)
+++ branches/boehm_gc/lib/Parrot/Harness/Options.pm	Tue Dec 29 10:50:36 2009	(r43309)
@@ -71,6 +71,7 @@
 
     $args =~ s/-O/-O$opts{O}/ if exists $opts{O};
     $args =~ s/-D/-D$opts{D}/;
+    $args =~ s/-G/--gc=$opts{G}/ if exists $opts{G};
     $args .= ' --gc-debug'    if $gc_debug;
     ## no critic qw(Bangs::ProhibitFlagComments)
     # XXX find better way

Modified: branches/boehm_gc/t/harness
==============================================================================
--- branches/boehm_gc/t/harness	Tue Dec 29 10:50:13 2009	(r43308)
+++ branches/boehm_gc/t/harness	Tue Dec 29 10:50:36 2009	(r43309)
@@ -36,7 +36,7 @@
 # Suck the short options into the TEST_PROG_ARGS
 # environmental variable.
 my %opts;
-getopts('wgjPCSefbvdr?hO:D:', \%opts);
+getopts('wgjPCSefbvdr?hO:D:G:', \%opts);
 
 if ($opts{'?'} || $opts{h} || $longopts->{help}) {
     Usage();