Change 18622 by jhi@kosh on 2003/02/02 12:49:13
minitest wasn't working. (The $^X /miniperl/ test in
io/crlf.t didn't work in Tru64, $^X was "./perl", used
the same 'eval q/use .../' trick everywhere.)
Affected files ...
... //depot/perl/t/io/crlf.t#7 edit
... //depot/perl/t/uni/tr_7jis.t#3 edit
... //depot/perl/t/uni/tr_eucjp.t#2 edit
... //depot/perl/t/uni/tr_sjis.t#3 edit
... //depot/perl/t/uni/tr_utf8.t#6 edit
Differences ...
==== //depot/perl/t/io/crlf.t#7 (text) ====
Index: perl/t/io/crlf.t
--- perl/t/io/crlf.t#6~18164~ Tue Nov 19 14:32:52 2002
+++ perl/t/io/crlf.t Sun Feb 2 04:49:13 2003
@@ -32,7 +32,9 @@
SKIP:
{
- if ($^X =~ /\bminiperl\b/) { skip(q/miniperl can't load PerlIO layers/) }
+ eval 'use PerlIO::scalar';
+ skip(q/miniperl cannnot load PerlIO::scalar/)
+ if $@ =~ /dynamic loading not available/;
my $fcontents = join "", map {"$_\r\n"} "a".."zzz";
open my $fh, "<:crlf", \$fcontents;
local $/ = "xxx";
==== //depot/perl/t/uni/tr_7jis.t#3 (text) ====
Index: perl/t/uni/tr_7jis.t
--- perl/t/uni/tr_7jis.t#2~18175~ Sun Nov 24 18:20:48 2002
+++ perl/t/uni/tr_7jis.t Sun Feb 2 04:49:13 2003
@@ -23,6 +23,11 @@
print "1..0 # Skip: PerlIO required\n";
exit 0;
}
+ eval 'use Encode';
+ if ($@ =~ /dynamic loading not available/) {
+ print "1..0 # Skip: no dynamic loading, no Encode\n";
+ exit 0;
+ }
$| = 1;
}
==== //depot/perl/t/uni/tr_eucjp.t#2 (text) ====
Index: perl/t/uni/tr_eucjp.t
--- perl/t/uni/tr_eucjp.t#1~18125~ Thu Nov 7 06:01:57 2002
+++ perl/t/uni/tr_eucjp.t Sun Feb 2 04:49:13 2003
@@ -22,6 +22,11 @@
print "1..0 # Skip: PerlIO required\n";
exit 0;
}
+ eval 'use Encode';
+ if ($@ =~ /dynamic loading not available/) {
+ print "1..0 # Skip: no dynamic loading, no Encode\n";
+ exit 0;
+ }
$| = 1;
}
==== //depot/perl/t/uni/tr_sjis.t#3 (text) ====
Index: perl/t/uni/tr_sjis.t
--- perl/t/uni/tr_sjis.t#2~18175~ Sun Nov 24 18:20:48 2002
+++ perl/t/uni/tr_sjis.t Sun Feb 2 04:49:13 2003
@@ -22,6 +22,11 @@
print "1..0 # Skip: PerlIO required\n";
exit 0;
}
+ eval 'use Encode';
+ if ($@ =~ /dynamic loading not available/) {
+ print "1..0 # Skip: no dynamic loading, no Encode\n";
+ exit 0;
+ }
$| = 1;
}
==== //depot/perl/t/uni/tr_utf8.t#6 (text) ====
Index: perl/t/uni/tr_utf8.t
--- perl/t/uni/tr_utf8.t#5~18496~ Thu Jan 16 12:36:23 2003
+++ perl/t/uni/tr_utf8.t Sun Feb 2 04:49:13 2003
@@ -23,6 +23,11 @@
print "1..0 # Skip: PerlIO required\n";
exit 0;
}
+ eval 'use Encode';
+ if ($@ =~ /dynamic loading not available/) {
+ print "1..0 # Skip: no dynamic loading, no Encode\n";
+ exit 0;
+ }
$| = 1;
}
End of Patch.
