diff options
author | Adam Borowski <kilobyte@angband.pl> | 2013-04-10 21:47:02 +0200 |
---|---|---|
committer | Adam Borowski <kilobyte@angband.pl> | 2013-04-10 21:47:02 +0200 |
commit | 7533cba44f70247141cfe97c49d0846a26c002df (patch) | |
tree | 8bce989f69623fb51544a3146190bffe854c1506 /crawl-ref/source/util/art-data.pl | |
parent | bdaba501ab6dfa919dadfdedf165155bd4d311ff (diff) | |
download | crawl-ref-7533cba44f70247141cfe97c49d0846a26c002df.tar.gz crawl-ref-7533cba44f70247141cfe97c49d0846a26c002df.zip |
Formatting fixes.
Diffstat (limited to 'crawl-ref/source/util/art-data.pl')
-rwxr-xr-x | crawl-ref/source/util/art-data.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/crawl-ref/source/util/art-data.pl b/crawl-ref/source/util/art-data.pl index 255953b866..b7cfb18d34 100755 --- a/crawl-ref/source/util/art-data.pl +++ b/crawl-ref/source/util/art-data.pl @@ -615,12 +615,14 @@ FOOTER close(HEADER); } -sub guard_constant($) { +sub guard_constant($) +{ (my $name = shift) =~ tr/a-zA-Z0-9/_/c; $name } -sub unrand_enum_constants() { +sub unrand_enum_constants() +{ my $result = ''; my $i; my $longest_enum = 0; @@ -1063,7 +1065,8 @@ sub read_data chdir("..") if (-e "../art-data.txt"); chdir("source") if (-e "source/art-data.txt"); -for my $wanted (qw/art-data.txt art-func.h artefact.h/) { +for my $wanted (qw/art-data.txt art-func.h artefact.h/) +{ die "Can't read $wanted" unless -r $wanted; } |