[Po4a-commits] po4a po4a,1.24,1.25 po4a-gettextize,1.28,1.29 po4a-normalize,1.22,1.23 po4a-translate,1.34,1.35 po4a-updatepo,1.31,1.32

[Danilo Piazzalunga]

Update of /cvsroot/po4a/po4a
In directory haydn:/tmp/cvs-serv8381

Modified Files:
	po4a po4a-gettextize po4a-normalize po4a-translate 
	po4a-updatepo 
Log Message:
Change the way help messages are printed by the scripts:
 * No parameters/wrong number of parameters: terse message only
 * With --help: full help text


Index: po4a-normalize
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-normalize,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- po4a-normalize	27 Feb 2005 22:56:00 -0000	1.22
+++ po4a-normalize	3 Mar 2005 20:08:54 -0000	1.23
@@ -124,9 +124,9 @@
 	'version|V'    => \&show_version
 ) or pod2usage(1);
 
-$help && pod2usage (0);
+$help && pod2usage (1);
 $help_fmt && Locale::Po4a::Chooser::list(0);
-pod2usage (1) unless scalar @ARGV == 1;
+pod2usage (0) unless scalar @ARGV == 1;
 
 my %options = (
     "verbose" => $verbose,

Index: po4a-translate
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-translate,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -d -r1.34 -r1.35
--- po4a-translate	27 Feb 2005 22:56:00 -0000	1.34
+++ po4a-translate	3 Mar 2005 20:08:54 -0000	1.35
@@ -201,10 +201,10 @@
 	'version|V'     => \&show_version
 ) or pod2usage(1);
 
-$help && pod2usage(0);
+$help && pod2usage(1);
 $help_fmt && Locale::Po4a::Chooser::list(0);
 
-(defined($master_filename) && length($master_filename))||pod2usage(1);
+(defined($master_filename) && length($master_filename))||pod2usage(0);
 (defined($po_filename)     && length($po_filename))    ||pod2usage(1);
 -e $master_filename || die wrap_msg(gettext("File %s does not exist."), $master_filename);
 -e $po_filename || die wrap_msg(gettext("File %s does not exist."), $po_filename);

Index: po4a
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- po4a	27 Feb 2005 22:56:00 -0000	1.24
+++ po4a	3 Mar 2005 20:08:54 -0000	1.25
@@ -236,7 +236,7 @@
 ) or pod2usage(1);
 
 # Argument check
-$help && pod2usage (0);
+$help && pod2usage (1);
 
 my ($verbose) = (scalar @verbose);
 $verbose = 1 if $debug;
@@ -253,7 +253,7 @@
     }
 }
 
-my $config_file= shift(@ARGV) || pod2usage(1);
+my $config_file= shift(@ARGV) || pod2usage(0);
 # Check file existence
 -e $config_file || die wrap_msg(gettext("File %s does not exist."), $config_file);
 

Index: po4a-updatepo
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-updatepo,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- po4a-updatepo	27 Feb 2005 22:56:00 -0000	1.31
+++ po4a-updatepo	3 Mar 2005 20:08:54 -0000	1.32
@@ -159,9 +159,9 @@
 	   'version|V'   => \&show_version)
     or pod2usage(1);
 
-$help && pod2usage (0);
+$help && pod2usage (1);
 $help_fmt && Locale::Po4a::Chooser::list(0);
-pod2usage (1) if scalar @masterfiles < 1 || scalar @pofiles < 1;
+pod2usage (0) if scalar @masterfiles < 1 || scalar @pofiles < 1;
 
 my %options = (
     "verbose" => $verbose,

Index: po4a-gettextize
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-gettextize,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- po4a-gettextize	27 Feb 2005 22:56:00 -0000	1.28
+++ po4a-gettextize	3 Mar 2005 20:08:54 -0000	1.29
@@ -179,9 +179,9 @@
 ) or pod2usage(1);
 
 # Argument check
-$help && pod2usage (0);
+$help && pod2usage (1);
 $help_fmt && Locale::Po4a::Chooser::list(0);
-pod2usage (1) if (scalar @ARGV > 1) || 
+pod2usage (0) if (scalar @ARGV > 1) || 
     (!defined($masterfile)) || (!length($masterfile));
 
 my %options = (