Refactored paths to work on every OS

bin/autotest.pl

 
 use v5.10;
 use warnings;
+use File::Spec;
 
 $PLATFORM   = (-d "c:\\windows" ? 'windows' : 'unix' );
 $DUMPS      = "dumps";
 }
 
 sub cat {
-    $_  = shift;
-    my ($name) = m|^.*/(.*?)$|;
+    my $name = File::Spec->splitpath( shift );
     printf "$name:\n";
     if (open my $fh,  "<", $_) {
         my @lines = <$fh>;
     my $ret = 0;
     printf "===== STDOUT =====\n";
     foreach (@_) {
-        s|^$TESTS/*||;
-        say "$_:"; 
-        $cmd = sprintf 'perl %s 2>%s', "$TESTS\\$_", "$DUMPS\\$_.err";
+        my $name = File::Spec->splitpath( $_ );
+        say "$name:"; 
+        $cmd = sprintf 'perl %s 2>%s', 
+                        File::Spec->catdir( $TESTS, $name ),
+                        File::Spec->catdir( $DUMPS, $name . '.err' );
         system($cmd);
         $ret = $? >> 8;
         if ($ret) {