1 files changed, 1 insertions, 1 deletions

diff --git a/t/TestBackup.pm b/t/TestBackup.pm
index 0679776..72e5925 100644
--- a/t/TestBackup.pm
+++ b/t/TestBackup.pm
@@ -26,7 +26,7 @@ sub makefile {
     while ($size) {
         my $n = @pattern;
         $n = $size if $n > $size;
-        syswrite(FH, join('',@pattern[0..$n])) or
+        syswrite(FH, join('',@pattern[0..$n-1])) or
                  croak "write error creating $file: $!";
         $size -= $n;
     }