Update of /cvsroot/po4a/po4a In directory haydn:/tmp/cvs-serv26535 Modified Files: po4a-gettextize po4a-normalize po4a-translate po4a-updatepo Log Message: Make sure --version works Index: po4a-normalize =================================================================== RCS file: /cvsroot/po4a/po4a/po4a-normalize,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- po4a-normalize 30 Apr 2004 23:05:43 -0000 1.14 +++ po4a-normalize 25 May 2004 19:19:32 -0000 1.15 @@ -84,11 +84,8 @@ use strict; use warnings; -use Locale::Po4a::KernelHelp; -use Locale::Po4a::Man; -use Locale::Po4a::Pod; -use Locale::Po4a::Sgml; use Locale::Po4a::Chooser; +use Locale::Po4a::TransTractor; use Getopt::Long qw(GetOptions); @@ -109,6 +106,7 @@ "conditions. There is NO warranty; not even for\n". "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." ),"po4a-normalize",$VERSION)."\n"; + exit 0; } my ($help_fmt,$help,$type,$debug,$verbose,@options); Index: po4a-translate =================================================================== RCS file: /cvsroot/po4a/po4a/po4a-translate,v retrieving revision 1.20 retrieving revision 1.21 diff -u -d -r1.20 -r1.21 --- po4a-translate 30 Apr 2004 23:26:36 -0000 1.20 +++ po4a-translate 25 May 2004 19:19:32 -0000 1.21 @@ -147,6 +147,7 @@ use warnings; use Locale::Po4a::Chooser; +use Locale::Po4a::TransTractor; use Pod::Usage qw(pod2usage); use Getopt::Long qw(GetOptions); @@ -166,6 +167,7 @@ "conditions. There is NO warranty; not even for\n". "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." ),"po4a-translate",$VERSION)."\n"; + exit 0; } Index: po4a-updatepo =================================================================== RCS file: /cvsroot/po4a/po4a/po4a-updatepo,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- po4a-updatepo 30 Apr 2004 23:05:43 -0000 1.19 +++ po4a-updatepo 25 May 2004 19:19:32 -0000 1.20 @@ -111,6 +111,7 @@ use Locale::Po4a::Po; use Locale::Po4a::Chooser; +use Locale::Po4a::TransTractor; use Pod::Usage qw(pod2usage); @@ -131,6 +132,7 @@ "conditions. There is NO warranty; not even for\n". "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." ),"po4a-updatepo",$VERSION)."\n"; + exit 0; } Index: po4a-gettextize =================================================================== RCS file: /cvsroot/po4a/po4a/po4a-gettextize,v retrieving revision 1.19 retrieving revision 1.20 diff -u -d -r1.19 -r1.20 --- po4a-gettextize 30 Apr 2004 23:05:43 -0000 1.19 +++ po4a-gettextize 25 May 2004 19:19:32 -0000 1.20 @@ -131,6 +131,7 @@ use Getopt::Long qw(GetOptions); use Locale::Po4a::Chooser; +use Locale::Po4a::TransTractor; use Pod::Usage qw(pod2usage); @@ -150,6 +151,7 @@ "conditions. There is NO warranty; not even for\n". "MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE." ), "po4a-gettextize", $VERSION)."\n"; + exit 0; } my ($pofile)=('-');