(short_read): Issue a warning on short reads.

diff --git a/src/buffer.c b/src/buffer.c
index b735dca1858a38d5670864bb19f8964d1ac6125c..515c3b9aac07ffed35f7eea38fb7ceb832ddef08 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -623,8 +623,15 @@ short_read (ssize_t status)
          archive_read_error ();
 
       if (status == 0)
-       break;
-
+       {
+         char buf[UINTMAX_STRSIZE_BOUND];
+         
+         WARN((0, 0, _("Read %s bytes from %s"),
+               STRINGIFY_BIGINT (record_size - left, buf),
+               *archive_name_cursor));
+         break;
+       }
+  
       if (! read_full_records_option)
        {
          unsigned long rest = record_size - left;