Merge tag 'upstream/1.7.1+dfsg'

Upstream version 1.7.1+dfsg

5 files changed, 10 insertions, 6 deletions

diff --git a/CHANGES b/CHANGES
index 5152108..a3ac2fa 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,7 @@
+Changes in 1.7.1 (September 2013)
+- "make test" now aborts if STDOUT is not a terminal, same as already
+  for STDIN. Suggested by Alexandr Ciornii via CPAN ticket 82564.
+
 Changes in 1.7.0 (August 2013)
 - Added support for the new NetBSD 6.0 quota system (libquota)
   Thanks to David Holland and Edgar Fuss
diff --git a/META.yml b/META.yml
index be44439..9a51243 100644
--- a/META.yml
+++ b/META.yml
@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name: Quota
 abstract: Quota - Perl interface to file system quotas
-version: 1.7.0
+version: 1.7.1
 author:
   - Tom Zoerner <tomzo@users.sourceforge.net>
 license: perl
diff --git a/Quota.pm b/Quota.pm
index 1247381..e5a1271 100644
--- a/Quota.pm
+++ b/Quota.pm
@@ -22,7 +22,7 @@ require DynaLoader;
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = ();
 
-$VERSION = '1.7.0';
+$VERSION = '1.7.1';
 
 bootstrap Quota;
 
diff --git a/README b/README
index 51768c0..80a28bf 100644
--- a/README
+++ b/README
@@ -3,8 +3,8 @@ Quota extension module for Perl
 
 Author:    Tom Zoerner (tomzo AT users.sourceforge.net)
 
-Version:   1.7.0
-Date:      August 2013
+Version:   1.7.1
+Date:      September 2013
 DLSIP-Code:Rcdfg
            - stable release
            - C compiler required for installation
diff --git a/test.pl b/test.pl
index 90fc303..3ddfd9c 100755
--- a/test.pl
+++ b/test.pl
@@ -15,8 +15,8 @@
 use blib;
 use Quota;
 
-if (! -t) {
-   print STDERR "\nThis is an interactive test script - input must be a tty\nExiting now.\n";
+if (! -t STDIN || ! -t STDOUT) {
+   print STDERR "\nThis is an interactive test script - input and output must be a tty\nExiting now.\n";
    exit;
 }
 if ($ENV{AUTOMATED_TESTING}) {