cvs commit: parrot/lib/Parrot/Test Tcl.pm

[Will Coleda]

cvsuser     04/09/22 17:06:25

  Modified:    lib/Parrot/Test Tcl.pm
  Log:
  no longer necessary to use -G
  
  Revision  Changes    Path
  1.4       +1 -2      parrot/lib/Parrot/Test/Tcl.pm
  
  Index: Tcl.pm
  ===================================================================
  RCS file: /cvs/public/parrot/lib/Parrot/Test/Tcl.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- Tcl.pm    19 Sep 2004 06:56:51 -0000      1.3
  +++ Tcl.pm    23 Sep 2004 00:06:25 -0000      1.4
  @@ -28,8 +28,7 @@
     my $parrotdir = dirname $self->{parrot};
   
     $TEST_PROG_ARGS = $ENV{TEST_PROG_ARGS} || '';
  -  # Force any tcl tests to run with -G
  -  my $args = "-G " . $TEST_PROG_ARGS;
  +  my $args = $TEST_PROG_ARGS;
   
     # flatten filenames (don't use directories)
     $lang_f = (File::Spec->splitpath($lang_f))[2];