equal
deleted
inserted
replaced
4 use warnings; |
4 use warnings; |
5 use File::Basename; |
5 use File::Basename; |
6 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath); |
6 use File::Spec::Functions qw(catfile rel2abs abs2rel canonpath); |
7 use Sys::Hostname; |
7 use Sys::Hostname; |
8 use autodie; |
8 use autodie; |
|
9 use Getopt::Long; |
|
10 |
|
11 my $opt_force = 0; |
|
12 |
|
13 GetOptions('f|force!' => \$opt_force) |
|
14 or die "Usage: $0 [--force]\n"; |
9 |
15 |
10 # list of files/dirs to exclude |
16 # list of files/dirs to exclude |
11 my @exclude = map { qr/$_/ } qw( |
17 my @exclude = map { qr/$_/ } qw( |
12 ^\.\.?$ |
18 ^\.\.?$ |
13 ^\.hg$ |
19 ^\.hg$ |
14 ), basename $0; |
20 ), basename $0; |
|
21 |
|
22 ... if $opt_force; |
15 |
23 |
16 foreach my $this (grep { not $_ ~~ @exclude } glob('.*')) { |
24 foreach my $this (grep { not $_ ~~ @exclude } glob('.*')) { |
17 |
25 |
18 my $link = catfile $ENV{HOME}, $this; |
26 my $link = catfile $ENV{HOME}, $this; |
19 |
27 |