[tapx-dev] [commit][210] Fixed conditional use of vmsish so that it works on 5.6.1.

[andy at hexten.net]

Revision: 210
Author:   andy
Date:     2007-08-08 20:44:22 +0100 (Wed, 08 Aug 2007)

Log Message:
-----------
Fixed conditional use of vmsish so that it works on 5.6.1. It remains to be seen whether it actually works on VMS...

Modified Paths:
--------------
    trunk/t/sample-tests/die
    trunk/t/sample-tests/die_head_end
    trunk/t/sample-tests/die_last_minute
    trunk/t/sample-tests/die_unfinished

Modified: trunk/t/sample-tests/die
===================================================================
--- trunk/t/sample-tests/die	2007-08-08 12:50:06 UTC (rev 209)
+++ trunk/t/sample-tests/die	2007-08-08 19:44:22 UTC (rev 210)
@@ -1,2 +1,2 @@
-use if ($^O eq 'VMS'), vmsish => 'hushed';
+eval "use vmsish 'hushed'" if ($^O eq 'VMS');
 exit 1;  # exit because die() can be noisy

Modified: trunk/t/sample-tests/die_head_end
===================================================================
--- trunk/t/sample-tests/die_head_end	2007-08-08 12:50:06 UTC (rev 209)
+++ trunk/t/sample-tests/die_head_end	2007-08-08 19:44:22 UTC (rev 210)
@@ -5,5 +5,5 @@
 ok 4
 DUMMY_TEST
 
-use if $^O eq 'VMS', vmsish => 'hushed';
+eval "use vmsish 'hushed'" if ($^O eq 'VMS');
 exit 1;

Modified: trunk/t/sample-tests/die_last_minute
===================================================================
--- trunk/t/sample-tests/die_last_minute	2007-08-08 12:50:06 UTC (rev 209)
+++ trunk/t/sample-tests/die_last_minute	2007-08-08 19:44:22 UTC (rev 210)
@@ -6,5 +6,5 @@
 1..4
 DUMMY_TEST
 
-use if $^O eq 'VMS', vmsish => 'hushed';
+eval "use vmsish 'hushed'" if ($^O eq 'VMS');
 exit 1;

Modified: trunk/t/sample-tests/die_unfinished
===================================================================
--- trunk/t/sample-tests/die_unfinished	2007-08-08 12:50:06 UTC (rev 209)
+++ trunk/t/sample-tests/die_unfinished	2007-08-08 19:44:22 UTC (rev 210)
@@ -5,5 +5,5 @@
 ok 3
 DUMMY_TEST
 
-use if $^O eq 'VMS', vmsish => 'hushed';
+eval "use vmsish 'hushed'" if ($^O eq 'VMS');
 exit 1;