From 8548f6a4aee0b92adbc298183b551ff3e9ac4281 Mon Sep 17 00:00:00 2001 From: Eric Wong Date: Wed, 22 May 2019 07:27:52 +0000 Subject: 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. --- lib/PublicInbox/UserContent.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lib/PublicInbox/UserContent.pm') 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; -- cgit v1.2.3-24-ge0c7