Permalink
Browse files

Few more checks and tunes

  • Loading branch information...
1 parent 5c004fc commit 70c7001c8891a68025ed2ccbdc7a35c7e15c53ab @tadzik committed Mar 2, 2011
Showing with 10 additions and 1 deletion.
  1. +10 −1 dedeprecator
View
11 dedeprecator
@@ -89,7 +89,16 @@ sub MAIN(@ARGS) {
# check the given files
for @files -> $f {
if $f ~~ / '.pir' $ / {
- say(check_pir($f, @regs_pir).join("\n"));
+ my @d;
+ try {
+ @d := check_pir($f, @regs_pir);
+ CATCH {
+ say("Failed checking $f: $!");
+ }
+ }
+ if pir::elements(@d) {
+ say(@d.join("\n"));
+ }
}
}
}

0 comments on commit 70c7001

Please sign in to comment.