| changeset 7 | 5b81887c26e9 |
| parent 5 | 7ce40ff50871 |
| child 15 | 60cf80d063e7 |
| 6:3b312ac90a15 | 7:5b81887c26e9 |
|---|---|
18 |
18 |
19 # list of files/dirs to exclude |
19 # list of files/dirs to exclude |
20 |
20 |
21 my @exclude = map { qr/$_/xms } qw( |
21 my @exclude = map { qr/$_/xms } qw( |
22 ^\.\.?$ |
22 ^\.\.?$ |
23 ^\.hg$ |
23 ^\.hg |
24 ), basename $PROGRAM_NAME; |
24 ), basename $PROGRAM_NAME; |
25 |
25 |
26 ... if $opt_force; |
26 ... if $opt_force; |
27 |
27 |
28 foreach my $this (grep { not $_ ~~ @exclude } glob q{.*}) { |
28 foreach my $this (grep { not $_ ~~ @exclude } glob q{.*}) { |