Use autodie

1 files changed, 2 insertions, 2 deletions

diff --git a/srtplay b/srtplay
index 9c181ff..0291e53 100755
--- a/srtplay
+++ b/srtplay
@@ -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') {