use DBI;
use Commods;
+$ENV{'LC_CTYPE'}= 'en_GB.UTF-8';
sub full ($) {
my ($ocean) = @_;
quick($ocean);
print "## updating topology of $ocean\n";
- system('./yppedia-chart-parser',$ocean); die $? if $?;
+ system('./yppedia-chart-parser',$ocean); die "$ocean $?" if $?;
}
sub quick ($) {