Daniel Shahaf wrote on Thu, Feb 09, 2012 at 01:46:45 +0200: > Jason Wong wrote on Wed, Feb 08, 2012 at 15:32:05 -0800: > > Hello and thank you for replying. > > > > On Tue, Feb 7, 2012 at 4:04 PM, Daniel Shahaf <danie...@elego.de> wrote: > > > Jason Wong wrote on Tue, Feb 07, 2012 at 13:23:10 -0800: > > >> Any help/comments would be appreciated. Thank you. > > >> > > > > > > As I said, I'd be interested in isolating the cause of these errors. > > > Is there anything common to revisions that triggered the bug (as > > > explained above)? Are they concomitant with concurrent writes (commits, > > > propedits, 'svn lock' operations, 'svnadmin pack' operations)? What > > > version of svn does your server run (1.7.1?)? What operating system > > > does your server run? Is there anything noteworthy about its > > > filesystems or disks? > > > > > I am working with our lead developer to come up with more details > > on our build process. I will post this when I get it. > > Our svn repository is 1.7.1 and is hosted on Apache 2.2.21 on a > > Windows 2003 server. The server has running RAID5 with SCSI disks. > > > > Okay. We've seen this happen on svn.apache.org, which today runs > httpd-2.3/FreeBSD/zfs, and was probably running this or a similar stack > when the problems triggered there. > > > Because my systems are on Windows, I don't think the perl script > > you had sent me will run as there are a couple commands in it > > that are called which I don't have. Do you have any suggestions > > for how I can run the script? > > > > Get xxd.exe from http://www.vim.org/ and cat.exe and sed.exe from > http://gnuwin32.sf.net (or from Cygwin). Delete from the script the > line that uses the 'head' command.
There is a second use of 'head', which you shouldn't delete. So instead, just get head.exe from the same place as the other two, or use the following kind of statement: my $line = do { open FOO, "perl -V 2>&1 |"; <FOO>; }; Lastly, there's a 'sed' invocation that uses single-quoted arguments. All it does is "print the input up to the first empty line" --- feel free to implement it differently. (One way: my @lines = split /\n/, `command | goes | here`; $_ and print or last for @lines; Both of these examples could do with some error checking.) Daniel (yes, there's also a neater way to do this without split(). but it's not a Perl class here)