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.
# usage: perl -I lib __FILE__ contrib/css/216dark.css
# (See Makefile.PL)
if (scalar(@ARGV) == 1 && -r __FILE__) {
# 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;
# indent one level:
$css =~ s/^([ \t]*\S)/\t$1/smg;
$css =~ s/;/ !important;/sg;
$css =~ s/(\w) \}/$1 !important }/msg;
$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;
$out =~ s/^sub CSS.*^_\n\}/sub CSS () {\n\t<<'_'\n${css}_\n}/sm;
seek $rw, 0, 0;
+ print $rw $out or die $!;
+ close $rw or die $!;