dot/stow
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Rebuild stow based on v2.3.2-fixbug56727

Browse source
This commit is contained in:
Danielle McLean 2023-10-23 15:01:16 +11:00
parent d7da96382f
commit 23daff4a9f
Signed by: 00dani
GPG key ID: 52C059C3B22A753E
42 changed files with 8741 additions and 5290 deletions
Download patch file Download diff file Expand all files Collapse all files

21
local/bin/chkstow
View file

@ -1,4 +1,19 @@
#!/usr/bin/perl
#!/usr/local/bin/perl
#
# This file is part of GNU Stow.
#
# GNU Stow is free software: you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# GNU Stow is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see https://www.gnu.org/licenses/.
use strict;
use warnings;
@ -8,7 +23,7 @@ require 5.006_001;
use File::Find;
use Getopt::Long;
my $DEFAULT_TARGET = '/usr/local/';
my $DEFAULT_TARGET = $ENV{STOW_DIR} || '/usr/local/';
our $Wanted = \&bad_links;
our %Package = ();
@ -93,7 +108,7 @@ sub aliens {
!-l && !-d && print "Unstowed file: $File::Find::name\n";
}
# just list the packages in the the target directory
# just list the packages in the target directory
# FIXME: what if the stow dir is not called 'stow'?
sub list {
if (-l) {