diff options
| -rwxr-xr-x | get.pl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -68,7 +68,7 @@ if ($video_fn) { print "Video filename: $video_fn\n"; my $tag = sanitize($video_fn); print "creating dataset: $tag\n"; - my @partz = split(".", $video_fn); + my @partz = split(/\./, $video_fn); my $ext = $partz[$#partz]; my $new_fn = $tag . '.' . $ext; system('mv', $video_fn, $new_fn); |
