PERFORCE change 11777 for review
[email protected] (Chris Nandor) Tue, 28 Aug 2001 23:40:57 -0400
| Newsgroups | perl.perl5.changes.mac |
|---|---|
| Message-ID | <p05100315b7b214bd4fc5@[10.0.1.177]> |
Change 11777 by pudge@pudge-mobile on 2001/08/29 02:12:52
Various patches: enable more tests; skip CVS in PerlInstall;
fix typemap for Mac::Processes; remove comments in MM_MacOS.pm
Affected files ...
... //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#3 edit
... //depot/maint-5.6/macperl/macos/PerlInstall#2 edit
... //depot/maint-5.6/macperl/macos/ext/Mac/Processes/typemap#2 edit
... //depot/maint-5.6/macperl/macos/lib/ExtUtils/MM_MacOS.pm#3 edit
Differences ...
==== //depot/maint-5.6/macperl/macos/MacPerlTests.cmd#3 (text) ====
Index: perl/macos/MacPerlTests.cmd
--- perl/macos/MacPerlTests.cmd.~1~ Tue Aug 28 20:30:06 2001
+++ perl/macos/MacPerlTests.cmd Tue Aug 28 20:30:06 2001
@@ -131,10 +131,10 @@
::macos:perl -I::lib :lib:complex.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :lib:db-btree.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :lib:db-btree.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:db-hash.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:db-hash.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :lib:db-recno.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :lib:db-recno.t >> ::macos:MacPerlTests.out
+echo "::macos:perl -I::lib :lib:db-hash.t" >> ::macos:MacPerlTests.out
+::macos:perl -I::lib :lib:db-hash.t >> ::macos:MacPerlTests.out
+echo "::macos:perl -I::lib :lib:db-recno.t" >> ::macos:MacPerlTests.out
+::macos:perl -I::lib :lib:db-recno.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :lib:dirhand.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :lib:dirhand.t >> ::macos:MacPerlTests.out
# echo "::macos:perl -I::lib :lib:dosglob.t" >> ::macos:MacPerlTests.out
@@ -409,8 +409,8 @@
# ::macos:perl -I::lib :op:magic.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :op:method.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :op:method.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :op:misc.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :op:misc.t >> ::macos:MacPerlTests.out
+echo "::macos:perl -I::lib :op:misc.t" >> ::macos:MacPerlTests.out
+::macos:perl -I::lib :op:misc.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :op:mkdir.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :op:mkdir.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :op:my.t" >> ::macos:MacPerlTests.out
@@ -469,8 +469,8 @@
::macos:perl -I::lib :op:splice.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :op:split.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :op:split.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :op:sprintf.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :op:sprintf.t >> ::macos:MacPerlTests.out
+echo "::macos:perl -I::lib :op:sprintf.t" >> ::macos:MacPerlTests.out
+::macos:perl -I::lib :op:sprintf.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :op:stat.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :op:stat.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :op:study.t" >> ::macos:MacPerlTests.out
@@ -559,8 +559,8 @@
::macos:perl -I::lib :pragma:subs.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :pragma:utf8.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :pragma:utf8.t >> ::macos:MacPerlTests.out
-# echo "::macos:perl -I::lib :pragma:warnings.t" >> ::macos:MacPerlTests.out
-# ::macos:perl -I::lib :pragma:warnings.t >> ::macos:MacPerlTests.out
+echo "::macos:perl -I::lib :pragma:warnings.t" >> ::macos:MacPerlTests.out
+::macos:perl -I::lib :pragma:warnings.t >> ::macos:MacPerlTests.out
echo "::macos:perl -I::lib :run:runenv.t" >> ::macos:MacPerlTests.out
::macos:perl -I::lib :run:runenv.t >> ::macos:MacPerlTests.out
@@ -571,10 +571,6 @@
echo "These tests are known to fail. Run if you want to, but beware"
echo "because crashes are possible."
echo ""
-echo "# DB is broken in a few different ways"
-echo "::macos:perl -I::lib :lib:db-hash.t >> ::macos:MacPerlTests.out"
-echo "::macos:perl -I::lib :lib:db-recno.t >> ::macos:MacPerlTests.out"
-echo ""
echo "# DOS::Glob doesn't work ... do we care?"
echo "::macos:perl -I::lib :lib:dosglob.t >> ::macos:MacPerlTests.out"
echo ""
@@ -593,11 +589,8 @@
echo "# I dunno here"
echo "::macos:perl -I::lib :op:magic.t >> ::macos:MacPerlTests.out"
echo ""
-echo "# fails test 48 (known problem in IO redirection)"
-echo "::macos:perl -I::lib :op:misc.t >> ::macos:MacPerlTests.out"
-echo ""
echo "# fails tests 129, 130, 142, 161 (known problem in sfio)"
echo "::macos:perl -I::lib :op:sprintf.t >> ::macos:MacPerlTests.out"
echo ""
-echo "# fails tests 319, 329 (known problem in IO redirection)"
+echo "# fails tests 329 (known problem in sysopen warning)"
echo "::macos:perl -I::lib :pragma:warnings.t >> ::macos:MacPerlTests.out"
==== //depot/maint-5.6/macperl/macos/PerlInstall#2 (text) ====
Index: perl/macos/PerlInstall
--- perl/macos/PerlInstall.~1~ Tue Aug 28 20:30:06 2001
+++ perl/macos/PerlInstall Tue Aug 28 20:30:06 2001
@@ -36,6 +36,7 @@
opendir(DIR, $dir);
while ($d = readdir(DIR)) {
+ next if $d eq "CVS";
next unless -d "$dir:$d";
$fromdir = "$dir:$d";
$todir = $dirs{$d};
==== //depot/maint-5.6/macperl/macos/ext/Mac/Processes/typemap#2 (text) ====
Index: perl/macos/ext/Mac/Processes/typemap
--- perl/macos/ext/Mac/Processes/typemap.~1~ Tue Aug 28 20:30:06 2001
+++ perl/macos/ext/Mac/Processes/typemap Tue Aug 28 20:30:06 2001
@@ -14,7 +14,7 @@
$var.highLongOfPSN = (long) ((psn - low)/4294967296.0);
}
T_FSSPECPTR
- GUSIPath2FSp((char *) SvPV($arg,na), $var)
+ GUSIPath2FSp((char *) SvPV_nolen($arg), $var)
OUTPUT
T_PSN
$arg = newSVnv($var.highLongOfPSN * 4294967296.0 + $var.lowLongOfPSN);
==== //depot/maint-5.6/macperl/macos/lib/ExtUtils/MM_MacOS.pm#3 (text) ====
Index: perl/macos/lib/ExtUtils/MM_MacOS.pm
--- perl/macos/lib/ExtUtils/MM_MacOS.pm.~1~ Tue Aug 28 20:30:06 2001
+++ perl/macos/lib/ExtUtils/MM_MacOS.pm Tue Aug 28 20:30:06 2001
@@ -338,10 +338,6 @@
close FH;
}
- # if your FOO.pm says
- # $VERSION = substr(q$Revision: 1.5 $, 10);
- # then MM says something like
- # -DXS_VERSION=\"n.nn \"
if ($self->{VERSION}) {
$self->{VERSION} =~ s/^\s+//;
$self->{VERSION} =~ s/\s+$//;
End of Patch.