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

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
        !             8: close(FILE);
        !             9: open(FILE, '>', $ARGV[0]) or die $!;
        !            10: print FILE $file;
        !            11: close(FILE);

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