From ed5f92d1e6e9acc3d92cb7b5eb025b0af2a37012 Mon Sep 17 00:00:00 2001
From: Sam Nystrom <sam@samnystrom.dev>
Date: Wed, 16 Aug 2023 21:53:32 -0400
Subject: Use autodie

---
 srtplay | 4 ++--
 1 file 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') {
-- 
cgit v1.2.3