about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-05-22 07:27:52 +0000
committerEric Wong <e@80x24.org>2019-05-22 07:27:52 +0000
commit8548f6a4aee0b92adbc298183b551ff3e9ac4281 (patch)
treec936e1338f7e3dd3eebd59dde30e59e009df5d3f
parentdf5446c040b99bf2631e5da226e73a2fa82c7b15 (diff)
downloadpublic-inbox-8548f6a4aee0b92adbc298183b551ff3e9ac4281.tar.gz
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.
-rw-r--r--lib/PublicInbox/UserContent.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/PublicInbox/UserContent.pm b/lib/PublicInbox/UserContent.pm
index 2a258165..f01160d4 100644
--- 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;