monotone

monotone Commit Details

Date:2010-05-08 21:02:44 (9 years 15 days ago)
Author:Tony Cooper
Branch:net.venge.monotone.contrib.lib.automate-stdio
Commit:c666a3ae7db1410476cbe74283a1131fa7da4419
Parents: 696ccc76fe8b761defb874ebc2252bd4b78ab03f
Message:- The get_db_name() method now returns undef instead of ":memory:" when

connecting to a network service.
- Improved some exception messages and other minor code tidy-ups.
Changes:
Mlib/Monotone/AutomateStdio.pm (4 diffs)

File differences

lib/Monotone/AutomateStdio.pm
117117
118118
119119
120
121
122
123
120124
121125
122126
......
516520
517521
518522
519
523
520524
521525
522526
523527
524528
525529
526
530
527531
528532
529533
......
31873191
31883192
31893193
3190
3194
3195
3196
3197
3198
3199
3200
3201
31913202
31923203
31933204
......
51025113
51035114
51045115
5105
5106
5116
5117
51075118
51085119
51095120
use constant WAITPID_INTERRUPT => __PACKAGE__ . "::waitpid-interrupt";
# Constant used to represent the in memory database name.
use constant IN_MEMORY_DB_NAME => ":memory:";
# Constants used to represent different value formats.
use constant BARE_PHRASE => 0x01; # E.g. orphaned_directory.
{
$server = $service;
}
&$croaker("`" . $server . "' is not known")
&$croaker("`" . $server . "' is not known to the system")
unless (defined(inet_aton($server)));
# Actually construct the object.
$self = create_object($class);
$this = $class_records{$self->{$class_name}};
$this->{db_name} = ":memory:";
$this->{db_name} = IN_MEMORY_DB_NAME;
$this->{network_service} = $service;
$this->{mtn_options} = $options;
my $this = $class_records{$self->{$class_name}};
return $this->{db_name};
if (defined($this->{dn_name}) && $this->{db_name} eq IN_MEMORY_DB_NAME)
{
return undef;
}
else
{
return $this->{db_name};
}
}
#
# Get the interface version (remember also that if something failed
# above then this method will throw an exception giving the cause). If
# the database is locked then then this startup method will be called
# again by the method call below so use the $startup boolean to stop
# the database is locked then this startup method will be called again
# by the method call below, so use the $startup boolean to stop
# unnecessary recursion.
if (! $startup)

Archive Download the corresponding diff file

Branches

Tags

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