summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--ext/Devel/PPPort/t/test.t2
-rw-r--r--ext/PerlIO/t/scalar.t2
-rw-r--r--ext/PerlIO/t/via.t2
-rw-r--r--ext/threads/shared/t/disabled.t2
-rw-r--r--lib/DB.t2
-rw-r--r--lib/Dumpvalue.t2
-rw-r--r--lib/PerlIO/via/t/QuotedPrint.t2
-rw-r--r--lib/Tie/RefHash.t2
-rw-r--r--lib/autouse.t2
-rw-r--r--lib/dumpvar.t2
-rw-r--r--lib/h2xs.t2
-rw-r--r--lib/overload.t2
-rw-r--r--t/io/crlf.t2
13 files changed, 13 insertions, 13 deletions
diff --git a/ext/Devel/PPPort/t/test.t b/ext/Devel/PPPort/t/test.t
index 469bd87a69..aff863034e 100644
--- a/ext/Devel/PPPort/t/test.t
+++ b/ext/Devel/PPPort/t/test.t
@@ -2,7 +2,7 @@ BEGIN {
chdir 't' if -d 't';
@INC = '../lib' if -d '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bDevel::PPPort\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bDevel/PPPort\b!) ){
print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
exit 0;
}
diff --git a/ext/PerlIO/t/scalar.t b/ext/PerlIO/t/scalar.t
index a4c479924b..4021d431a2 100644
--- a/ext/PerlIO/t/scalar.t
+++ b/ext/PerlIO/t/scalar.t
@@ -8,7 +8,7 @@ BEGIN {
exit 0;
}
require Config;
- if (($Config::Config{'extensions'} !~ /\bPerlIO::scalar\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bPerlIO/scalar\b!) ){
print "1..0 # Skip -- Perl configured without PerlIO::scalar module\n";
exit 0;
}
diff --git a/ext/PerlIO/t/via.t b/ext/PerlIO/t/via.t
index 0d819dfef3..7d46f40dc8 100644
--- a/ext/PerlIO/t/via.t
+++ b/ext/PerlIO/t/via.t
@@ -8,7 +8,7 @@ BEGIN {
exit 0;
}
require Config;
- if (($Config::Config{'extensions'} !~ /\bPerlIO::via\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){
print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
exit 0;
}
diff --git a/ext/threads/shared/t/disabled.t b/ext/threads/shared/t/disabled.t
index 1add2b89ee..f3e90a7849 100644
--- a/ext/threads/shared/t/disabled.t
+++ b/ext/threads/shared/t/disabled.t
@@ -6,7 +6,7 @@ BEGIN {
chdir 't';
@INC = '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bthreads::shared\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bthreads/shared\b!) ){
print "1..0 # Skip -- Perl configured without threads::shared module\n";
exit 0;
}
diff --git a/lib/DB.t b/lib/DB.t
index 7e809bed0b..f665291fa2 100644
--- a/lib/DB.t
+++ b/lib/DB.t
@@ -4,7 +4,7 @@ BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
print "1..0 # Skip -- Perl configured without List::Util module\n";
exit 0;
}
diff --git a/lib/Dumpvalue.t b/lib/Dumpvalue.t
index 015830487b..b22b86d732 100644
--- a/lib/Dumpvalue.t
+++ b/lib/Dumpvalue.t
@@ -8,7 +8,7 @@ BEGIN {
exit 0;
}
require Config;
- if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
print "1..0 # Skip -- Perl configured without List::Util module\n";
exit 0;
}
diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index 4774af3f47..baf0d1f4e4 100644
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -8,7 +8,7 @@ BEGIN { # Magic Perl CORE pragma
exit 0;
}
require Config;
- if (($Config::Config{'extensions'} !~ /\bPerlIO::via\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){
print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
exit 0;
}
diff --git a/lib/Tie/RefHash.t b/lib/Tie/RefHash.t
index a855446f27..c0fad915f7 100644
--- a/lib/Tie/RefHash.t
+++ b/lib/Tie/RefHash.t
@@ -14,7 +14,7 @@ BEGIN {
@INC = '.';
push @INC, '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bData::Dumper\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bData/Dumper\b!) ){
print "1..0 # Skip -- Perl configured without Data::Dumper module\n";
exit 0;
}
diff --git a/lib/autouse.t b/lib/autouse.t
index cc7c41a325..2c52f42552 100644
--- a/lib/autouse.t
+++ b/lib/autouse.t
@@ -4,7 +4,7 @@ BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
print "1..0 # Skip -- Perl configured without List::Util module\n";
exit 0;
}
diff --git a/lib/dumpvar.t b/lib/dumpvar.t
index eb0fe315c7..843ba1c056 100644
--- a/lib/dumpvar.t
+++ b/lib/dumpvar.t
@@ -4,7 +4,7 @@ BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
print "1..0 # Skip -- Perl configured without List::Util module\n";
exit 0;
}
diff --git a/lib/h2xs.t b/lib/h2xs.t
index 5485323f3d..e6c75c091d 100644
--- a/lib/h2xs.t
+++ b/lib/h2xs.t
@@ -14,7 +14,7 @@ BEGIN {
@INC = '../lib';
# FIXME (or rather FIXh2xs)
require Config;
- if (($Config::Config{'extensions'} !~ /\bDevel::PPPort\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bDevel/PPPort\b!) ){
print "1..0 # Skip -- Perl configured without Devel::PPPort module\n";
exit 0;
}
diff --git a/lib/overload.t b/lib/overload.t
index e21e60b69e..4184e23794 100644
--- a/lib/overload.t
+++ b/lib/overload.t
@@ -4,7 +4,7 @@ BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
require Config;
- if (($Config::Config{'extensions'} !~ /\bList::Util\b/) ){
+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){
print "1..0 # Skip -- Perl configured without List::Util module\n";
exit 0;
}
diff --git a/t/io/crlf.t b/t/io/crlf.t
index f59b245d51..be514003a5 100644
--- a/t/io/crlf.t
+++ b/t/io/crlf.t
@@ -34,7 +34,7 @@ if (find PerlIO::Layer 'perlio') {
{
skip("miniperl can't rely on loading PerlIO::scalar")
if $ENV{PERL_CORE_MINITEST};
- skip("no PerlIO::scalar") unless $Config{extensions} =~ /PerlIO::scalar/;
+ skip("no PerlIO::scalar") unless $Config{extensions} =~ m!\bPerlIO/scalar\b!;
require PerlIO::scalar;
my $fcontents = join "", map {"$_\015\012"} "a".."zzz";
open my $fh, "<:crlf", \$fcontents;
View Lorry Controller Status