Package: po4a
Version: 0.26-1
Severity: wishlist
Several commands could process stdin, here is a trivial patch.
Stdin could be used either for the master file or a PO file,
so a real solution requires a little bit more thinking.
Denis
-- System Information:
Debian Release: testing/unstable
APT prefers unstable
APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.16-2-686
Locale: LANG=fr_FR.UTF-8, LC_CTYPE=fr_FR.UTF-8 (charmap=UTF-8)
Versions of packages po4a depends on:
ii gettext 0.14.6-1 GNU Internationalization utilities
ii libsgmls-perl 1.03ii-31 Perl modules for processing SGML p
ii perl 5.8.8-6 Larry Wall's Practical Extraction
ii perl-modules 5.8.8-6 Core Perl modules
ii sp 1.3.4-1.2.1-47 James Clark's SGML parsing tools
Versions of packages po4a recommends:
ii liblocale-gettext-perl 1.05-1 Using libc functions for internati
ii libterm-readkey-perl 2.30-3 A perl module for simple terminal
ii libtext-wrapi18n-perl 0.06-5 internationalized substitute of Te
-- no debconf information
Index: po4a-gettextize
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-gettextize,v
retrieving revision 1.36
diff -u -r1.36 po4a-gettextize
--- po4a-gettextize 13 Nov 2005 12:44:57 -0000 1.36
+++ po4a-gettextize 17 Jul 2006 20:44:51 -0000
@@ -194,7 +194,7 @@
}
# Check file existence
foreach my $file (@masterfile, @locfile) {
- -e $file || die wrap_msg(gettext("File %s does not exist."), $file);
+ $file eq '-' || -e $file || die wrap_msg(gettext("File %s does not
exist."), $file);
}
# Declare the TransTractor parsers
Index: po4a-normalize
===================================================================
RCS file: /cvsroot/po4a/po4a/po4a-normalize,v
retrieving revision 1.28
diff -u -r1.28 po4a-normalize
--- po4a-normalize 22 Sep 2005 21:51:49 -0000 1.28
+++ po4a-normalize 17 Jul 2006 20:44:51 -0000
@@ -137,7 +137,7 @@
my $parser=Locale::Po4a::Chooser::new($type,%options);
my $filename = shift || pod2usage(1);
--e $filename || die wrap_msg(gettext("File %s does not exist."), $filename);
+$filename eq '-' || -e $filename || die wrap_msg(gettext("File %s does not
exist."), $filename);
$parser->read($filename);
$parser->{TT}{utf_mode} = 1;
