Subversion Repositories DevTools

Rev

Rev 3965 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3965 Rev 4018
Line 1828... Line 1828...
1828 
#
 1828 
#
1829 
sub fix_command_name
 1829 
sub fix_command_name
1830 
{
 1830 
{
1831 
    my ($cmd) = @_;
 1831 
    my ($cmd) = @_;
1832 
 
 1832 
 
1833 
    unless ( $GBE_UNIX )
 1833 
    if ( defined $cmd )
1834 
    {
 1834 
    {
- 
 
 1835 
        unless ( $GBE_UNIX )
1835 
        #
 1836 
        {
- 
 
 1837 
            #
1836 
        #   Cygwin kludge
 1838 
            #   Cygwin kludge
1837 
        #       Replace /cygdrive/DriveLetter/ - with DriveLetter:/
 1839 
            #       Replace /cygdrive/DriveLetter/ - with DriveLetter:/
1838 
        #       Replace /DriveLetter/          - With DriveLetter:/
 1840 
            #       Replace /DriveLetter/          - With DriveLetter:/
1839 
        #
 1841 
            #
1840 
        $cmd =~ s~^/cygdrive/([A-Z])/(.*)~$1:/$2~i;
 1842 
            $cmd =~ s~^/cygdrive/([A-Z])/(.*)~$1:/$2~i;
1841 
        $cmd =~ s~^/([A-Z])/(.*)~$1:/$2~i;
 1843 
            $cmd =~ s~^/([A-Z])/(.*)~$1:/$2~i;
- 
 
 1844 
        }
1842 
    }
 1845 
    }
1843 
    return $cmd;
 1846 
    return $cmd;
1844 
}
 1847 
}
1845 
 
 1848 
 
1846 
 
 1849