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/util/unrest.pl | |
| 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/util/unrest.pl')
| -rwxr-xr-x | crawl-ref/source/util/unrest.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crawl-ref/source/util/unrest.pl b/crawl-ref/source/util/unrest.pl index c40fc28f5d..e70816e391 100755 --- a/crawl-ref/source/util/unrest.pl +++ b/crawl-ref/source/util/unrest.pl @@ -29,7 +29,7 @@ s/\\(.)/$1/g; # Table of contents. my $contents = "Contents\n--------\n"; -for(/\*{9,}\n(.\. .+)\n\*{9,}/g) +for (/\*{9,}\n(.\. .+)\n\*{9,}/g) { /(.)\. (.+)/; $contents .= "\nAppendices\n" if $1 eq "1"; @@ -55,7 +55,7 @@ s/\ca[^\cb]?\cb//g; # Rewrap overlong lines. my $ls = ""; my $rem = ""; -for(/^.*$/mg) +for (/^.*$/mg) { s/\s*$//; /^( *)(.*)/; |