|
Check-in Number:
|
4843 | |
| Date: |
2004-Nov-16 20:32:40 (local)
2004-Nov-16 19:32:40 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
Ops, too much cut & paste from OSSP uuid ;-) |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
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;
|
|
