|
Check-in Number:
|
4865 | |
| Date: |
2004-Nov-20 17:51:52 (local)
2004-Nov-20 16:51:52 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
synchronize perl wrapper for changed cfg_node_root function |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/cfg/perl/cfg.pm 1.5 -> 1.6
--- cfg.pm 2004/11/17 13:15:15 1.5
+++ cfg.pm 2004/11/20 16:51:52 1.6
@@ -241,11 +241,12 @@
return ($self->{-rc} == $self->CFG_OK ? $arg : undef);
}
-sub node_root ($) {
- my ($self) = @_;
- my $node;
- $self->{-rc} = cfg_node_root($self->{-cfg}, $node);
- return ($self->{-rc} == $self->CFG_OK ? $node : undef);
+sub node_root ($;$) {
+ my ($self, $node_new) = @_;
+ $node_new ||= \0;
+ my $node_old;
+ $self->{-rc} = cfg_node_root($self->{-cfg}, $node_new, $node_old);
+ return ($self->{-rc} == $self->CFG_OK ? $node_old : undef);
}
sub node_select ($$$) {
|
|
