Re: patch
[email protected] (Nicholas Clark)
| Newsgroups | perl.daily-build |
|---|---|
| Message-ID | <[email protected]> |
On Fri, Aug 24, 2001 at 03:18:24PM +0100, Nicholas Clark wrote: > It's defensive typing. I'm in xemacs editing a message. When I go back to > mutt I have to remember to attach the files. Sometimes I forget (As I appear Bah. Nick
sh.patch
(text/plain, 681 B)
--- smoke.sh.orig Sat Aug 25 00:54:24 2001
+++ /home/smoke/bin/smoke.sh Thu Aug 23 17:13:51 2001
@@ -4,7 +4,8 @@
# VERSION 1.02
# Change your base dir here
-export PC=${1:-/usr/CPAN/perl-current}
+export PATH=/home/smoke/bin:$PATH
+export PC=${1:-/home/smoke/Smoke}
# Set environmental values here
export PATH=$PATH":"`pwd`
@@ -16,6 +17,5 @@
make -i distclean > /dev/null 2>&1
rsync -avz --delete rsync://ftp.linux.activestate.com/perl-current/ .
-(mktest.pl 2>&1) >mktest.log
-
-mkovz.pl [email protected] $PC
+(mktest.pl 2>&1) >mktest.log || echo mktest.pl exited with exit code $?
+mkovz.pl [email protected] $PC || echo mkovz.pl exited with exit code $?
pl.patch
(text/plain, 2.5 KB)
--- mktest.pl.orig Sat Aug 25 00:11:12 2001
+++ /home/smoke/bin/mktest.pl Thu Aug 23 17:17:21 2001
@@ -34,16 +34,16 @@
my @p_conf = ("", "");
foreach my $tconf (
"",
- "-Dusethreads -Duseithreads -Dusereentrant ",
+# "-Dusethreads -Duseithreads ",
) {
foreach my $conf (
- "-Uuseperlio",
+# "-Uuseperlio",
"-Duseperlio",
- "-Duseperlio -Duse64bitint",
- "-Duseperlio -Duse64bitall",
- "-Duseperlio -Duselongdouble",
- "-Duseperlio -Dusemorebits",
- "-Duseperlio -Duse64bitall -Duselongdouble",
+# "-Duseperlio -Duse64bitint",
+# "-Duseperlio -Duse64bitall",
+# "-Duseperlio -Duselongdouble",
+# "-Duseperlio -Dusemorebits",
+# "-Duseperlio -Duse64bitall -Duselongdouble",
) {
foreach my $dconf (
"",
@@ -51,12 +51,13 @@
) {
my $uconf = ""; # Room for -U...
my $s_conf = join "\n" =>
- "", "./Configuration: $dconf-Dusedevel $conf $tconf$uconf", "-" x 78, "";
+ "", "Configuration: $dconf-Dusedevel $conf $tconf$uconf", "-" x 78, "";
print TTY $s_conf;
print LOG $s_conf;
# You can put some optimizations (skipping configurations) here
- if ($^O eq "hpux" && $conf =~ m/longdouble|morebits/) {
+ if (($^O eq "hpux" || $^O eq "freebsd")
+ && $conf =~ m/longdouble|morebits/) {
# longdouble is turned off in Configure for hpux, and since morebits
# is the same as 64bitint + longdouble, these have already been tested
print TTY " Skipped this configuration for this OS (duplicate test)\n";
@@ -77,7 +78,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 +149,7 @@
print;
}
print LOG map { " $_" } @nok;
- if (grep m/^All tests successful/, @nok) {
+ if (grep /^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
@@ -217,7 +218,7 @@
if (-s "perl.nok.$$") {
print TTY "\nNot OK file ...";
- open NOK, "< perl.nok";
+ open NOK, "< perl.nok.$$";
my @nok = <NOK>;
close NOK;
shift @nok;
--- mkovz.pl.orig Sat Aug 25 00:10:30 2001
+++ /home/smoke/bin/mkovz.pl Thu Aug 23 17:15:40 2001
@@ -144,4 +144,6 @@
}
close RPT;
select STDOUT;
-system "mailx -s 'Report $testd' $email < $testd/mktest.rpt";
+my $mailer = 'mailx';
+$mailer = 'mail' if ($^O =~ /bsd$/);
+system "$mailer -s 'Report $testd' $email < $testd/mktest.rpt";