damn you perl
authorAaron Kaplan <aaron@lo-res.org>
Mon, 16 Dec 2013 21:11:15 +0000 (22:11 +0100)
committerAaron Kaplan <aaron@lo-res.org>
Mon, 16 Dec 2013 21:11:15 +0000 (22:11 +0100)
src/perlify.pl

index 8228fa4..ec512d0 100755 (executable)
@@ -18,8 +18,8 @@ foreach  $f ( @files)  {
        my $fbasename = basename($f);
        my $ftex = "$1_generated.tex";
 
-       my $rc=` grep -q "\@\@\@CIPHERSTRINGB\@\@\@" $f`;
-       if ($rc eq 0 and not (/$fbasename/ ~~ @exclude)) {
+       system("grep", "-q", "\@\@\@CIPHERSTRINGB\@\@\@" , $f);
+       if ($? eq 0 ) { #and not (/$fbasename/ ~~ @exclude)) {
 
                print "file = $f\n" if $debug;
                print "ftex = $ftex\n" if $debug;