diff options
author | Adam Borowski <kilobyte@angband.pl> | 2012-05-20 22:44:49 +0200 |
---|---|---|
committer | Adam Borowski <kilobyte@angband.pl> | 2012-05-20 22:45:37 +0200 |
commit | 591dad2b80cd54c8af065b4ad2eee03112c7ad17 (patch) | |
tree | 2574e5cdb37c2d84a6bbe2440b5d5169f4081985 /crawl-ref/source/util/db_lint | |
parent | 6a6dfe83adae4e87335f88e7cf2b336b572aa0a9 (diff) | |
download | crawl-ref-591dad2b80cd54c8af065b4ad2eee03112c7ad17.tar.gz crawl-ref-591dad2b80cd54c8af065b4ad2eee03112c7ad17.zip |
db_lint: Make reported filenames friendly to doubleclick copy&paste.
Diffstat (limited to 'crawl-ref/source/util/db_lint')
-rwxr-xr-x | crawl-ref/source/util/db_lint | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crawl-ref/source/util/db_lint b/crawl-ref/source/util/db_lint index 9022ba353b..8e80fabff2 100755 --- a/crawl-ref/source/util/db_lint +++ b/crawl-ref/source/util/db_lint @@ -15,9 +15,9 @@ sub __________________________________________________________________________ sub read_file($) { %keys = (); - $file = $_[0]; + $file = "dat/$_[0].txt"; $line = 0; - open F, "<dat/$file.txt" or die "Can't read dat/$file.txt\n"; + open F, "<", $file or die "Can't read $file\n"; ($key, $value) = (); local $_; |