monotone

monotone Commit Details

Date:2010-02-21 20:13:34 (9 years 3 months ago)
Author:Tony Cooper
Branch:net.venge.monotone.contrib.lib.automate-stdio
Commit:c7293e074c8788aa1356016d3e029d3a8e922a8e
Parents: dc3f1d8febd7fd7fb98fec80ac83f0ef035d9b21
Message:Now use the getlines() method instead of <>.

Changes:
Mlib/Monotone/AutomateStdio.pm (8 diffs)

File differences

lib/Monotone/AutomateStdio.pm
44294429
44304430
44314431
4432
44334432
44344433
44354434
......
44424441
44434442
44444443
4445
4446
44474444
44484445
44494446
......
44994496
45004497
45014498
4502
4499
45034500
45044501
45054502
45064503
45074504
4508
4505
45094506
45104507
45114508
......
45264523
45274524
45284525
4529
4526
45304527
45314528
45324529
......
46014598
46024599
46034600
4604
46054601
46064602
46074603
......
46314627
46324628
46334629
4634
4635
46364630
46374631
46384632
......
47034697
47044698
47054699
4706
4700
47074701
47084702
47094703
47104704
47114705
4712
4706
47134707
47144708
47154709
......
47264720
47274721
47284722
4729
4723
47304724
47314725
47324726
$chunk_start,
$cmd_nr,
$colons,
$err,
$err_code,
$err_occurred,
$handler,
$size);
my $this = $class_records{$self->{$class_name}};
$err = $this->{mtn_err};
# Work out what I/O wait handler is to be used.
if (defined($this->{io_wait_handler}))
if ($char ne "m" && $char ne "l")
{
croak("Corrupt/missing mtn chunk header, mtn gave:\n"
. join("", <$err>));
. join("", $this->{mtn_err}->getlines()));
}
}
elsif ($char =~ m/\D$/)
{
croak("Corrupt/missing mtn chunk header, mtn gave:\n"
. join("", <$err>));
. join("", $this->{mtn_err}->getlines()));
}
}
else
{
croak("Corrupt/missing mtn chunk header, mtn gave:\n"
. join("", <$err>));
. join("", $this->{mtn_err}->getlines()));
}
$chunk_start = undef;
$chunk_start,
$cmd_nr,
$colons,
$err,
$err_code,
$err_occurred,
$handler,
w => {buffer_ref => undef,
offset => 0});
$err = $this->{mtn_err};
# Create the buffers.
foreach my $key (CORE::keys(%details))
if ($char !~ m/^[elmptw]$/)
{
croak("Corrupt/missing mtn chunk header, mtn gave:\n"
. join("", <$err>));
. join("", $this->{mtn_err}->getlines()));
}
}
elsif ($char =~ m/\D$/)
{
croak("Corrupt/missing mtn chunk header, mtn gave:\n"
. join("", <$err>));
. join("", $this->{mtn_err}->getlines()));
}
}
else
{
croak("Corrupt/missing mtn chunk header, mtn gave:\n"
. join("", <$err>));
. join("", $this->{mtn_err}->getlines()));
}
# Set up the current buffer and offset details.

Archive Download the corresponding diff file

Branches

Tags

Quick Links:     www.monotone.ca    -     Downloads    -     Documentation    -     Wiki    -     Code Forge    -     Build Status