Subversion Repositories DevTools

Rev

Rev 247 | Rev 257 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 247 Rev 255
Line 27... Line 27...
27 
#                    DisplayPath                - Genate a Path that can be displayed
 27 
#                    DisplayPath                - Genate a Path that can be displayed
28 
#
 28 
#
29 
#
 29 
#
30 
#......................................................................#
 30 
#......................................................................#
31 
 
 31 
 
32 
use 5.6.1;
 32 
use 5.006_001;
33 
use strict;
 33 
use strict;
34 
use warnings;
 34 
use warnings;
35 
 
 35 
 
36 
################################################################################
 36 
################################################################################
37 
#   Global variables used by functions in this package
 37 
#   Global variables used by functions in this package
Line 101... Line 101...
101 
    $ScmHost = "DOS"      if ($^O eq "win95");        # DOS Perl dependent
 101 
    $ScmHost = "DOS"      if ($^O eq "win95");        # DOS Perl dependent
102 
    $ScmHost = "WIN"      if ($^O eq "MSWin32");      # ActivePerl
 102 
    $ScmHost = "WIN"      if ($^O eq "MSWin32");      # ActivePerl
103 
    $ScmHost = "WIN"      if ($^O eq "cygwin");       # Cygwin
 103 
    $ScmHost = "WIN"      if ($^O eq "cygwin");       # Cygwin
104 
 
 104 
 
105 
    $isUnix = 1 if ( $ScmHost eq "Unix"  );
 105 
    $isUnix = 1 if ( $ScmHost eq "Unix"  );
106 
    $isCygWin = 1 if ( $ENV{'SHELL'}  );
 106 
    $isCygWin = 1 if ( $ENV{'SHELL'} || $ENV{'CYGWIN'} );
107 
 
 107 
 
108 
    $ScmPathSep = $isUnix ? ':' : ';';     # Unix / Windows
 108 
    $ScmPathSep = $isUnix ? ':' : ';';     # Unix / Windows
109 
}
 109 
}
110 
 
 110 
 
111 
#-------------------------------------------------------------------------------
 111 
#-------------------------------------------------------------------------------