Index: ossp-pkg/cfg/perl/cfg.pm
RCS File: /v/ossp/cvs/ossp-pkg/cfg/perl/cfg.pm,v
rcsdiff -q -kk '-r1.3' '-r1.4' -u '/v/ossp/cvs/ossp-pkg/cfg/perl/cfg.pm,v' 2>/dev/null
--- cfg.pm	2004/11/16 19:32:40	1.3
+++ cfg.pm	2004/11/17 09:05:47	1.4
@@ -155,7 +155,7 @@
     return;
 }
 
-sub import {
+sub import { # ($$$$)
     #   ATTENTION: The OSSP cfg API function "import" conflicts with
     #   the standardized "import" method the Perl world expects from
     #   their modules. In order to keep the Perl binding consist
@@ -175,7 +175,7 @@
     }
 }
 
-sub export {
+sub export { # ($$$)
     #   ATTENTION: The OSSP cfg API function "export" conflicts with
     #   the standardized "export" method the Perl world expects from
     #   their modules. In order to keep the Perl binding consist
@@ -185,7 +185,7 @@
         #   the regular OSSP::cfg "export" method
         my ($self, $node, $fmt) = @_;
         my $out;
-        $self->{-rc} = cfg_import($self->{-cfg}, $node, $fmt, $out, 0);
+        $self->{-rc} = cfg_export($self->{-cfg}, $node, $fmt, $out, 0);
         return ($self->{-rc} == $self->CFG_OK ? $out : undef);
     }
     else {