Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Tweaking handling of initial slash detection to handle initial undefs.

Browse Source
This commit is contained in:
Chris 2012-06-20 14:50:39 +01:00
parent 7172af61e1
commit a316c58217
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Utils.pm
View File

@ -49,9 +49,7 @@ our @EXPORT_OK = qw(path_join resolve_path check_directory load_file save_file s
# @return A string containing the path fragments joined with forward slashes. # @return A string containing the path fragments joined with forward slashes.
sub path_join { sub path_join {
my @fragments = @_; my @fragments = @_;
my $leadslash;
# Need a lead slash?
my $leadslash = $fragments[0] =~ m|^/|;
# strip leading and trailing slashes from fragments # strip leading and trailing slashes from fragments
my @parts; my @parts;
@ -59,6 +57,9 @@ sub path_join {
# Skip empty fragments. # Skip empty fragments.
next unless($bit); next unless($bit);
# Determine whether the first real path has a leading slash.
$leadslash = $bit =~ m|^/| unless(defined($leadslash));
# Remove leading and trailing slashes # Remove leading and trailing slashes
$bit =~ s|^/*||; $bit =~ s|/*$||; $bit =~ s|^/*||; $bit =~ s|/*$||;