All pastes #2122882 Raw Edit

PRUEBA

public text v1 · immutable
#2122882 ·published 2012-02-29 13:00 UTC
rendered paste body
sub isWindowsFriendly {
        my ($arg1) = @_;

        $result = 0;

        #Eliminacion de caracteres prohibidos
        if ($arg1 =~ s/[\/\\:?"<>|*]//g) { $result = 1; }

        return ($result);
}