correct resized path
authorDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 15 Oct 2009 20:41:16 +0000 (22:41 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Thu, 15 Oct 2009 20:41:16 +0000 (22:41 +0200)
bin/mplayer.pl

index bf8997b..e5f9e01 100755 (executable)
@@ -214,7 +214,7 @@ sub html5tv {
                foreach my $hires ( @slides_hires ) {
 
                        my $file = $hires;
-                       $file =~ s{(\d+)\.\w+$}{$path/$1.jpg} || warn "can't rewrite $file";
+                       $file =~ s{^.+(\d+)\.\w+$}{$path/$1.jpg} || warn "can't rewrite $file";
                        warn "slide $hires -> $file\n";
                        next if -e $file;