diff options
Diffstat (limited to 'dir-to-movie.pl')
| -rwxr-xr-x | dir-to-movie.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/dir-to-movie.pl b/dir-to-movie.pl index 7bc48c5..7e74eec 100755 --- a/dir-to-movie.pl +++ b/dir-to-movie.pl @@ -3,6 +3,13 @@ my $tag = $ARGV[0] or "pix2pixhd_" . time; $tag =~ s/\....$//; +if (! -e "results/$tag") { + print "usage: $0 [tag]\n"; + exit(1); +} + +chdir('results/$tag'); + my $i = 0; my $ls = `ls -1v *.png`; my @lines = split('\n', $ls); @@ -28,4 +35,5 @@ system("ffmpeg", END { system('rm', '-rf', 'tmp'); + chdir('../..'); } |
