Patches submitted by Marcel Gruenauer.
For RT #116507 and 116517.
lutherh\100stratcom.com lutherh\100infinet.com
mab\100wdl.loral.com markb\100rdcf.sm.unisys.com
marcel\100codewerk.com gr\100univie.ac.at
++ hanekomu\100gmail.com
marcgreen\100cpan.org marcgreen\100wpi.edu
markleightonfisher\100gmail.com fisherm\100tce.com
mark.p.lutz\100boeing.com tecmpl1\100triton.ca.boeing.com
#!perl -w
+
+# This test file does not use test.pl because of the involved way in which it
+# generates its TAP output.
+
print "1..5\n";
my $file = "Run_switchF1.pl";
#!./perl -p
+# This test file does not use test.pl because of the involved way in which it
+# generates its TAP output.
+
BEGIN {
print "1..3\n";
*ARGV = *DATA;