1 package Git
::SVN
::Utils
;
21 Git::SVN::Utils - utility functions used across Git::SVN
25 use Git::SVN::Utils qw(functions to import);
29 This module contains functions which are useful across many different
30 parts of Git::SVN. Mostly it's a place to put utility functions
31 rather than duplicate the code or have classes grabbing at other
36 All functions can be imported only on request.
42 Display a message and exit with a fatal error code.
46 # Note: not certain why this is in use instead of die. Probably because
47 # the exit code of die is 255? Doesn't appear to be used consistently.
48 sub fatal
(@
) { print STDERR
"@_\n"; exit 1 }
53 my $can_compress = can_compress;
55 Returns true if Compress::Zlib is available, false otherwise.
61 return $can_compress if defined $can_compress;
63 return $can_compress = eval { require Compress
::Zlib
; };
67 =head3 canonicalize_path
69 my $canoncalized_path = canonicalize_path($path);
71 Converts $path into a canonical form which is safe to pass to the SVN
76 # Turn foo/../bar into bar
77 sub _collapse_dotdot
{
80 1 while $path =~ s{/[^/]+/+\.\.}{};
81 1 while $path =~ s{[^/]+/+\.\./}{};
82 1 while $path =~ s{[^/]+/+\.\.}{};
88 sub canonicalize_path
{
90 my $dot_slash_added = 0;
91 if (substr($path, 0, 1) ne "/") {
95 # File::Spec->canonpath doesn't collapse x/../y into y (for a
96 # good reason), so let's do this manually.
98 $path =~ s
#/\.(?:/|$)#/#g;
99 $path = _collapse_dotdot
($path);
101 $path =~ s
#^\./## if $dot_slash_added;
108 =head3 canonicalize_url
110 my $canonicalized_url = canonicalize_url($url);
112 Converts $url into a canonical form which is safe to pass to the SVN
117 sub canonicalize_url
{
120 # The 1.7 way to do it
121 if ( defined &SVN
::_Core
::svn_uri_canonicalize
) {
122 return SVN
::_Core
::svn_uri_canonicalize
($url);
124 # There wasn't a 1.6 way to do it, so we do it ourself.
126 return _canonicalize_url_ourselves
($url);
131 sub _canonicalize_url_ourselves
{
133 $url =~ s
#^([^:]+://[^/]*/)(.*)$#$1 . canonicalize_path($2)#e;
140 my $new_path = join_paths(@paths);
142 Appends @paths together into a single path. Any empty paths are ignored.
149 @paths = grep { defined $_ && length $_ } @paths;
151 return '' unless @paths;
152 return $paths[0] if @paths == 1;
154 my $new_path = shift @paths;
155 $new_path =~ s{/+$}{};
157 my $last_path = pop @paths;
158 $last_path =~ s{^/+}{};
160 for my $path (@paths) {
163 $new_path .= "/$path";
166 return $new_path .= "/$last_path";