[Po4a-commits] "po4a/lib/Locale/Po4a Common.pm,1.17,1.18"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv3252/lib/Locale/Po4a

Modified Files:
	Common.pm 
Log Message:
	* lib/Locale/Po4a/Common.pm: Do not use Text::WrapI18N if STDOUT
	or STDERR is not opened to a tty.


Index: Common.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Common.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- Common.pm	15 Jan 2009 22:04:26 -0000	1.17
+++ Common.pm	15 Jan 2009 22:11:11 -0000	1.18
@@ -56,7 +56,7 @@
 
     return if defined &wrapi18n;
 
-    if ($wrapi18n && eval { require Text::WrapI18N }) {
+    if ($wrapi18n && -t STDERR && -t STDOUT && eval { require Text::WrapI18N }) {
     
         # Don't bother determining the wrap column if we cannot wrap.
         my $col=$ENV{COLUMNS};