integrate cfgperl contents into mainline

[p5sagit/p5-mst-13.2.git] / t / op / quotemeta.t

diff --git a/t/op/quotemeta.t b/t/op/quotemeta.t
index 0217a67..60e5b7b 100755 (executable)
--- a/t/op/quotemeta.t
+++ b/t/op/quotemeta.t
@@ -1,8 +1,14 @@
 #!./perl
 
+BEGIN {
+    chdir 't' if -d 't';
+    unshift @INC, '../lib' if -d '../lib';
+    require Config; import Config;
+}
+
 print "1..15\n";
 
-if ($^O eq 'os390' or $^O eq 'vmesa') { # EBCDIC.
+if ($Config{ebcdic} eq 'define') {
     $_=join "", map chr($_), 129..233;
 
     # 105 characters - 52 letters = 53 backslashes