usercontent: stop relying on autodie

It's a non-standard package on CentOS-7, actually; and we
shouldn't bloat the PSGI server by loading a module which
isn't strictly needed.

diff --git a/lib/PublicInbox/UserContent.pm b/lib/PublicInbox/UserContent.pm
index 2a258165b230a03384b63f95b05bcd2fc68e9f78..f01160d451c436e0d41491bd91fffe17346b2c65 100644 (file)
--- a/lib/PublicInbox/UserContent.pm
+++ b/lib/PublicInbox/UserContent.pm
@@ -88,9 +88,8 @@ sub sample ($$) {
 # usage: perl -I lib __FILE__ contrib/css/216dark.css
 # (See Makefile.PL)
 if (scalar(@ARGV) == 1 && -r __FILE__) {
-       use autodie;
-       open my $ro, '<', $ARGV[0];
-       my $css = do { local $/; <$ro> };
+       open my $ro, '<', $ARGV[0] or die $!;
+       my $css = do { local $/; <$ro> } or die $!;
 
        # indent one level:
        $css =~ s/^([ \t]*\S)/\t$1/smg;
@@ -99,11 +98,12 @@ if (scalar(@ARGV) == 1 && -r __FILE__) {
        $css =~ s/;/ !important;/sg;
        $css =~ s/(\w) \}/$1 !important }/msg;
 
-       open my $rw, '+<', __FILE__;
-       my $out = do { local $/; <$rw> };
+       open my $rw, '+<', __FILE__ or die $!;
+       my $out = do { local $/; <$rw> } or die $!;
        $out =~ s/^sub CSS.*^_\n\}/sub CSS () {\n\t<<'_'\n${css}_\n}/sm;
        seek $rw, 0, 0;
-       print $rw $out;
+       print $rw $out or die $!;
+       close $rw or die $!;
 }
 
 1;