diff options
| author | psyc://loupsycedyglgamf.onion/~lynX <ircs://psyced.org/youbroketheinternet> | 2016-08-10 15:28:50 +0000 |
|---|---|---|
| committer | psyc://loupsycedyglgamf.onion/~lynX <ircs://psyced.org/youbroketheinternet> | 2016-08-10 15:28:50 +0000 |
| commit | 8b41a25b65da90b6c5432595059867d26ec3f70c (patch) | |
| tree | df1c7c99f9988f3bee7929f7d3aa279aed4516d8 | |
| parent | 677e6c209079b05a612a87c8e0519067c89fe024 (diff) | |
| download | perlpsyc-8b41a25b65da90b6c5432595059867d26ec3f70c.tar.gz perlpsyc-8b41a25b65da90b6c5432595059867d26ec3f70c.zip | |
-little chaos
| -rwxr-xr-x | bin/psycamp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/bin/psycamp b/bin/psycamp index 6ae4b43..d48baf9 100755 --- a/bin/psycamp +++ b/bin/psycamp | |||
| @@ -649,7 +649,7 @@ X | |||
| 649 | $f = $ENV{PWD}. '/'. $f unless $f =~ m!^/!; | 649 | $f = $ENV{PWD}. '/'. $f unless $f =~ m!^/!; |
| 650 | my $f2 = $f; | 650 | my $f2 = $f; |
| 651 | # the initial (.*) is a hack to make the regexp match the last occurance in the path string rather than earlier ones | 651 | # the initial (.*) is a hack to make the regexp match the last occurance in the path string rather than earlier ones |
| 652 | unless ($f =~ s:^(.*)/(SHARE|T|COMPLETE|KEEP|EDITABLE|FAVES|WRONG|SECONDARY|REPERTOIRE|NEW|SEEK|TODO|USE|DEEJAY|REMASTER|CRITICIZE|INCOMING|incomingDJ|EXPORT|VOLATILE|L8R|DJ|byArtist|byGenre|vol)\d?/:\1/$t/:i) | 652 | unless ($f =~ s:^(.*)/(SHARE|T|COMPLETE|KEEP|EDITABLE|FAVES|WRONG|SECONDARY|REPERTOIRE|NEW|SEEK|TODO|USE|DEEJAY|REMASTER|CRITICIZE|INCOMING|incomingDJ|EXPORT|VOLATILE|L8R|CHAOS|DJ|byArtist|byGenre|vol)\d?/:\1/$t/:i) |
| 653 | { | 653 | { |
| 654 | print BOLD, RED, ">> not applicable for $f\n", RESET; | 654 | print BOLD, RED, ">> not applicable for $f\n", RESET; |
| 655 | next; | 655 | next; |