Annotation of basic/src/compact-css, revision 1.2

1.1       basic       1: #!/usr/bin/perl
                      2: 
                      3: open(FILE, '<', $ARGV[0]) or die $!;
                      4: 
                      5: undef $/;
                      6: $file = <FILE>;
                      7: $file =~ s%/\*(?:[^*]|\*(?!/))*\*/|('(?:\.|[^\\'])*')|("(?:\.|[^\\"])*")%$+%sg; # strip out c-style comments
1.2     ! basic       8: $file =~ s/\s+/ /sg; # not string friendly, but we don't care
        !             9: $file =~ s/ ?([{}=:,+;]) ?/$1/g;
1.1       basic      10: close(FILE);
                     11: open(FILE, '>', $ARGV[0]) or die $!;
                     12: print FILE $file;
                     13: close(FILE);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>