eriod

1 files changed, 1 insertions, 1 deletions

diff --git a/get.pl b/get.pl
index 5f4cf78..56510d0 100755
--- a/get.pl
+++ b/get.pl
@@ -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);