testgraphical/source/filehelper.pm

52     my $sPath = shift;
56         $sPath =~ s/\//\\/g;
61     return $sPath;
66     my $sPath = shift;
70         $sPath =~ s/\\/\//g;
75     return $sPath;
143     my $sPath = shift;
145     if ($sPath && $sAddPath)
147         if (! endswith($sPath, "/") &&
148             ! endswith($sPath, "\\"))
151             $sPath .= "/";
153         $sPath .= $sAddPath;
155     return $sPath;
160     my $sPath = shift;
164     if ($sPath && $sAddPath)
166         if (! endswith($sPath, $sSeparator))
169             $sPath .= $sSeparator;
171         $sPath .= $sAddPath;
173     return $sPath;
337     my $sPath = shift;
342         if ($sPath =~ /\/cygdrive\/(.)/)
345             $sPath =~ s/\/cygdrive\/${Letter}/${Letter}\:/;
349     return $sPath;