X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/53ad55a5622edf0513f67311590e0d0cc3267de4..48a9c9c1a60f4f5ebc71a5e5269b01109c9dcfa4:/firefox/explode-stylus

diff --git a/firefox/explode-stylus b/firefox/explode-stylus
index 6dde67c..1b20b83 100755
--- a/firefox/explode-stylus
+++ b/firefox/explode-stylus
@@ -1,10 +1,11 @@
 #! /usr/bin/perl
 
 use autodie;
+use POSIX qw{:errno_h};
 use JSON;
 
 my ($dir) = @ARGV;
-mkdir $dir;
+eval { mkdir $dir; }; die if $@ && $@->errno != EEXIST;
 
 local $/;
 my $js = decode_json <STDIN>;
@@ -17,6 +18,7 @@ for my $e (@$js) {
       next KEY if $k eq "code";
       print $fh "/*@ $k: ", join(", ", $s->{$k}->@*), " */\n";
     }
+    $s->{code} =~ s/\n$//;
     print $fh $s->{code}, "\n";
     print $fh "/*\@END*/\n";
   }