Index: ossp-pkg/cfg/perl/cfg.pm RCS File: /v/ossp/cvs/ossp-pkg/cfg/perl/cfg.pm,v rcsdiff -q -kk '-r1.2' '-r1.3' -u '/v/ossp/cvs/ossp-pkg/cfg/perl/cfg.pm,v' 2>/dev/null --- cfg.pm 2004/11/16 19:31:35 1.2 +++ cfg.pm 2004/11/16 19:32:40 1.3 @@ -161,7 +161,7 @@ # their modules. In order to keep the Perl binding consist # with the C API, we solve the conflict under run-time by # distinguishing between the two types of "import" calls. - if (defined($_[0]) and ref($_[0]) =~ m/^OSSP::uuid/) { + if (defined($_[0]) and ref($_[0]) =~ m/^OSSP::cfg/) { # the regular OSSP::cfg "import" method my ($self, $node, $fmt, $in) = @_; $self->{-rc} = cfg_import($self->{-cfg}, $node, $fmt, $in, length($in)); @@ -181,7 +181,7 @@ # their modules. In order to keep the Perl binding consist # with the C API, we solve the conflict under run-time by # distinguishing between the two types of "export" calls. - if (defined($_[0]) and ref($_[0]) =~ m/^OSSP::uuid/) { + if (defined($_[0]) and ref($_[0]) =~ m/^OSSP::cfg/) { # the regular OSSP::cfg "export" method my ($self, $node, $fmt) = @_; my $out;