patch

The last smoke.tgz has syntax errors and other mistakes in it.  This
patches.

I think the "Configure" vs "./Configure" problem was mentioned before.
I don't have . in my PATH, and that's pretty common.

And sitting here on Debian, it's /bin/sh, not /usr/bin/sh.  I think
that's the more common setup.


--- smoke.orig/mkovz.pl	Thu Aug 23 19:47:06 2001
+++ smoke/mkovz.pl	Wed Aug 22 12:19:51 2001
@@ -13,7 +13,7 @@
 my $debug  = "";
 $rpt{patch} = "?";
 my $out = "$testd/mktest.out";
-open OUT, "<$out" or next;
+open OUT, "<$out" or die "Can't open $out:  $!";
 for (<OUT>) {
     m/^\s*$/ and next;
     m/^-+$/  and next;
--- smoke.orig/mktest.pl	Thu Aug 23 19:45:22 2001
+++ smoke/mktest.pl	Wed Aug 22 12:22:18 2001
@@ -77,7 +84,7 @@
 	}
 
     print TTY "\nConfigure ...";
-    qx "Configure -Dusedevel $conf $tconf $uconf -des";
+    qx "./Configure -Dusedevel $conf $tconf $uconf -des";
 
     unless (-f "Makefile" && -s "config.sh") {
 	print TTY " Unable to configure perl in this configuration\n";
@@ -148,7 +155,7 @@
 	    print;
 	    }
 	print LOG map { "    $_" } @nok;
-	if (grep m,^All tests successful, @nok) {
+	if (grep m/^All tests successful/, @nok) {
 	    print TTY "\nOK, archive results ...";
 	    $patch and $nok[0] =~ s/\./ for .patch = $patch./;
 	    # make {,n}okfile now, cause a failure might not be able to
--- smoke.orig/smoke.sh	Thu Aug 23 19:44:36 2001
+++ smoke/smoke.sh	Wed Aug 22 12:17:00 2001
@@ -1,9 +1,9 @@
-#!/usr/bin/sh
+#!/bin/sh
 

-- 

Michael G. Schwern   <[email protected]>    http://www.pobox.com/~schwern/
Perl6 Quality Assurance     <[email protected]>	     Kwalitee Is Job One
You see, in this world there's two kinds of people.  Those with loaded
guns, and those who dig.  Dig.
		-- Blonde, "The Good, The Bad And The Ugly"