diff options
| author | Adam Borowski <kilobyte@angband.pl> | 2013-06-28 02:23:03 +0200 |
|---|---|---|
| committer | Adam Borowski <kilobyte@angband.pl> | 2013-06-28 23:45:12 +0200 |
| commit | d27db1ede3195db129278d2482c87a1cc74905c3 (patch) | |
| tree | 1a614543a23f2018fe52014848bbd5e7e5c005fa /crawl-ref/source/misc | |
| parent | 5623267e1204b304e83f046072532a9912208755 (diff) | |
| download | crawl-ref-d27db1ede3195db129278d2482c87a1cc74905c3.tar.gz crawl-ref-d27db1ede3195db129278d2482c87a1cc74905c3.zip | |
Reformat some perl.
Mostly so I don't get spammed when forgetting to restrict a search to *.cc
*.h files only. There's too much idiosyncratic formatting to force a
standard without thinking about it first.
We seem to have a bunch of unused scripts, perhaps some should get pruned
away?
Diffstat (limited to 'crawl-ref/source/misc')
| -rwxr-xr-x | crawl-ref/source/misc/grep-mon.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crawl-ref/source/misc/grep-mon.pl b/crawl-ref/source/misc/grep-mon.pl index cb3538768b..1be308ab0c 100755 --- a/crawl-ref/source/misc/grep-mon.pl +++ b/crawl-ref/source/misc/grep-mon.pl @@ -2,7 +2,7 @@ use strict; -unless(@ARGV == 1) +unless (@ARGV == 1) { die("usage: grep-mon.pl <pattern>\n"); } @@ -29,7 +29,7 @@ unless (open(FILE, "<$data_file")) my $line; -while(<FILE>) +while (<FILE>) { $line = $_; last if ($line =~ /static monsterentry mondata/); |