path_looks_legal

gistfile1.pl

sub path_looks_legal {
    my ($path) = @_;
    my @native = File::Spec->splitpath($path);
    my @unix = File::Spec::Unix->splitpath($path);

    return if sum( map { $native[$_] ne $unix[$_] ? 1 : 0 } 0 .. 2 );

    @native = File::Spec->splitdir($native[1]);
    @unix = File::Spec::Unix->splitdir($unix[1]);

    return if sum( map { $native[$_] ne $unix[$_] ? 1 : 0 } 0 .. 2 );

    return 1;
}