use strict;
use warnings;
-use CSS::Minifier::XS;
+use CSS::Minifier::XS 0.07;
use File::Copy;
use File::Find;
use File::Slurp;
if ( $path =~ /(.+)\.css$/ ) {
print "CSS to : docroot:/$path\n";
my $content = read_file("$opt{tmpl}/web/$path");
- my $output = $opt{minify} ? CSS::Minifier::XS::minify($content) : $content;
- $output =~ s/and\(/and (/g; # hack round minify bug
- write_file( "$opt{docroot}/$path", $output );
+ write_file( "$opt{docroot}/$path", $opt{minify} ? CSS::Minifier::XS::minify($content) : $content );
}
elsif ( $path =~ /(.+)\.js$/ ) {
print "JS to : docroot:/$path\n";
mkdirp( ( $out_path =~ /^(.+)\/.+$/ )[0] );
## Write out the document
- open my $out, '>', $out_path or die $!;
+ open my $out, '>', $out_path or die "Unable to write $out_path - $!";
print $out $stylesheet->output_as_bytes($doc);
close $out;
}