Commit 11113532 authored by Ole Tange's avatar Ole Tange

tracefile: single char dir (/a/) processed correctly.

parent 60744cc4
......@@ -14,6 +14,8 @@ export -f doit
# Test 2 char dir
mkdir -p tt/tt
# Test 1 char dir
mkdir -p t/1/2/3
parallel -vj1 doit \
::: '' -l -u \
::: tt/tt/../tt/test.img `pwd`/tt/tt/../tt/test.img | grep test.img
::: tt/tt/../tt/test.img `pwd`/tt/tt/../tt/test.img t/1/../1/2/3/test.img `pwd`/t/1/../1/2/3/test.img | grep test.img
......@@ -279,10 +279,10 @@ while(<IN>) {
my $addinfo = $5;
# Relative to $dir
$file =~ s:^([^/]):$dir/$1:;
$file =~ s:/./:/:g; # /./ => /
$file =~ s:/\./:/:g; # /./ => /
$file =~ s:/[^/]+/\.\./:/:g; # /foo/../ => /
# Match files in $PWD or starting with ./
my $local = ($file =~ m<^(\Q$ENV{'PWD'}\E|\./)>);
my $local = defined $ENV{'PWD'} && ($file =~ m<^(\Q$ENV{'PWD'}\E|\./)>);
my $read = readfunc($function,$addinfo);
my $write = writefunc($function,$addinfo);
my $print = 1;
......
......@@ -103,6 +103,8 @@ update_list() {
-type f -printf '%s\t%p\n') |
# Sort by size
sort -rn |
# Uniq
uniq |
# Remove size column
perl -pe 's/^\S+\t//' > "$vidlist".$$
# Replace old vidlist with new
......
......@@ -28,6 +28,11 @@ downloaded file exists, it is played by B<vlc>.
Use tor proxy to download. It assumes you are running a tor proxy on
127.0.0.1:9050.
=item B<--kodi>
Play video using remote B<kodi> server.
=back
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment