diff options
Diffstat (limited to 'bin/canonicalise-csv')
| -rwxr-xr-x | bin/canonicalise-csv | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/canonicalise-csv b/bin/canonicalise-csv index 17b952769..c745ef459 100755 --- a/bin/canonicalise-csv +++ b/bin/canonicalise-csv @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: canonicalise-csv,v 1.3 2007-02-02 12:23:06 matthew Exp $ +# $Id: canonicalise-csv,v 1.4 2009-02-16 18:56:44 matthew Exp $ use strict; require 5.8.0; @@ -26,7 +26,8 @@ BEGIN { } my %councils; -open(FP, "$FindBin::Bin/../data/councils.csv"); +open(FP, "$FindBin::Bin/../data/councils.csv") + or die "Can't read councils.csv: $!\n"; while (<FP>) { s/\r?\n//g; my ($name, $email) = split /,/; |