]> rtime.felk.cvut.cz Git - wvtest.git/blobdiff - tools/wvwrap
Put the definition of prefix to a variable
[wvtest.git] / tools / wvwrap
index 184b50393a356f24e8ea89375f35a2afb49401fc..8b304c7ad60b3aac6715e35762f77443479e9c14 100755 (executable)
@@ -38,7 +38,7 @@ while (<>)
     chomp;
     s/\r//g;
 
-    if (/^(\([0-9]+\) (#   )?)?!\s*(.*?)\s+(\S+)\s*$/) {
+    if (/^($prefix_re)?!\s*(.*?)\s+(\S+)\s*$/) {
        my $line = $_;
        do {
            print substr($line, 0, $columns) . "\n";