ossp-pkg/cfg/perl/cfg.pm 1.2 -> 1.3
--- 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;
|
|
