X-Git-Url: http://git.projectaon.org/?a=blobdiff_plain;f=common%2Fscripts%2Fgbtosvg.pl;h=9af49b9c300631c8d9febcea2ee7df29fb97f23e;hb=4a7dbd306e2b7c63c6dd7e079233ffd137a6358a;hp=e9fa73f4136e8545ff941d98d0a6a146f70f9aef;hpb=99ff0c0408c069caca0f76d799eb6fd9646abf6b;p=project-aon.git

diff --git a/common/scripts/gbtosvg.pl b/common/scripts/gbtosvg.pl
index e9fa73f..9af49b9 100755
--- a/common/scripts/gbtosvg.pl
+++ b/common/scripts/gbtosvg.pl
@@ -1,8 +1,9 @@
-#!/usr/bin/env perl -w
+#!/usr/bin/env perl
 #
 # gbtosvg.pl
 
 use strict;
+use warnings;
 
 delete @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; # clean house for taint mode
 
@@ -67,7 +68,7 @@ while( $#ARGV > -1 ) {
 
 if( $bookCode eq '' ) { die "Unspecified book code\n$USAGE"; }
 if( $bookXML eq '' ) { $bookXML = "$language/xml/$bookCode.xml"; }
-if( $metaFile eq '' ) { $metaFile = "$language/.publisher/rules/standard"; }
+if( $metaFile eq '' ) { $metaFile = "$language/.publisher/rules/dever"; }
 
 if( -e $metaFile && -f $metaFile && -r $metaFile ) {
     open( META, '<', $metaFile )