Author: chromatic
Date: Mon Jun 4 12:47:11 2007
New Revision: 18808
Modified:
trunk/t/dynoplibs/myops.t
Log:
[t] Fixed a test warning.
Modified: trunk/t/dynoplibs/myops.t
==============================================================================
--- trunk/t/dynoplibs/myops.t (original)
+++ trunk/t/dynoplibs/myops.t Mon Jun 4 12:47:11 2007
@@ -62,7 +62,11 @@
{
my @todo;
- @todo = ( todo => 'broken with -j' ) if $ENV{TEST_PROG_ARGS} =~ /-j/;
+
+ if ($ENV{TEST_PROG_ARGS}) {
+ @todo = ( todo => 'broken with -j' ) if $ENV{TEST_PROG_ARGS} =~ /-j/;
+ }
+
my $quine = <<'END_PASM';
.loadlib "myops_ops"
q
