00dani/stow
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Special processing for dotfiles

Browse source
This commit is contained in:
Joris Vankerschaver 2016-07-31 21:55:55 +01:00
parent c171ca8d83
commit 182acbbb64
5 changed files with 171 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/Stow/Util.pm.in
View file

@ -22,7 +22,7 @@ use POSIX qw(getcwd);
use base qw(Exporter);
our @EXPORT_OK = qw(
error debug set_debug_level set_test_mode
join_paths parent canon_path restore_cwd
join_paths parent canon_path restore_cwd adjust_dotfile
);
our $ProgramName = 'stow';
@ -193,6 +193,20 @@ sub restore_cwd {
chdir($prev) or error("Your current directory $prev seems to have vanished");
}
sub adjust_dotfile {
my ($target) = @_;
my @result = ();
for my $part (split m{/+}, $target) {
if (($part ne "dot-") && ($part ne "dot-.")) {
$part =~ s/^dot-/./;
}
push @result, $part;
}
return join '/', @result;
}
=head1 BUGS
=head1 SEE ALSO