This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Add omitted test cases
[perl5.git] / lib / FindBin.t
index be6f58c..36e142c 100644 (file)
@@ -10,12 +10,7 @@ print "1..2\n";
 use FindBin qw($Bin);
 
 print "# $Bin\n";
-
-if ($^O eq 'MacOS') {
-    print "not " unless $Bin =~ m,:lib:$,;
-} else {
-    print "not " unless $Bin =~ m,[/.]lib\]?$,;
-}
+print "not " unless $Bin =~ m,[/.]lib\]?$,;
 print "ok 1\n";
 
 $0 = "-";