diff options
| -rwxr-xr-x | srtplay | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2,7 +2,7 @@ use 5.038; use utf8; - +use autodie; use Time::HiRes qw(time sleep); use IO::Poll; use Term::ReadKey; @@ -55,7 +55,7 @@ do { my $subtitle = { text => '' }; my $state = 'index'; - open(my $file, '<', $ARGV[0]) or die $!; + open(my $file, '<', $ARGV[0]); while (<$file>) { chomp; if ($state eq 'index') { |
