Ошибка при чтении вывода команды «svn log»

Question

Существует «svn: Write error», если я попытаюсь выполнить следующий скрипт.
Но если я отключу строку с «последним», никаких ошибок не будет.
Почему?

#!/usr/bin/perl 

my $repos = $ARGV[0]; 
my $rev = $ARGV[1]; 

my $repoURL = "file:///" . $ARGV[0]; 

open (SVNLOG, "svn log -r $rev -v $repoURL | "); 

while (my $line = <SVNLOG>) { 
    last; 
} 

close(SVNLOG); 

Answer 1

Поскольку процесс svn пытается записать в поток (его стандартный вывод), и вы закрыли поток, прежде чем он смог закончить. Если вы не хотите видеть эту строку ошибок, вам придется перенаправить стандартную ошибку svn на /dev/null или убедитесь, что вы прочитали все своего вывода перед закрытием дескриптора файла.

Answer 2

Непосредственный ответ на ваш вопрос, но вы должны рассмотреть возможность использования SVN::Client из CPAN вместо непосредственного использования инструмента командной строки svn.