Index: ossp-pkg/uuid/perl/uuid.pm
RCS File: /v/ossp/cvs/ossp-pkg/uuid/perl/Attic/uuid.pm,v
rcsdiff -q -kk '-r1.2' '-r1.3' -u '/v/ossp/cvs/ossp-pkg/uuid/perl/Attic/uuid.pm,v' 2>/dev/null
--- uuid.pm	2004/11/03 18:35:26	1.2
+++ uuid.pm	2004/11/03 18:44:40	1.3
@@ -171,9 +171,14 @@
 }
 
 sub import {
+    #   ATTENTION: The OSSP uuid API function "import" conflicts with
+    #   the standardized "import" method the Perl world expects from
+    #   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/) {
         #   the regular OSSP::uuid "import" method
-        croak("import method expects 3 or 4 arguments") if (@_ < 3 or @_ > 4);
+        croak("import method expects 3 or 4 arguments") if (@_ < 3 or @_ > 4); # emulate prototype
         my ($self, $fmt, $data_ptr, $data_len) = @_;
         if    ($fmt eq 'bin') { $fmt = $self->UUID_FMT_BIN; }
         elsif ($fmt eq 'str') { $fmt = $self->UUID_FMT_STR; }
@@ -192,9 +197,14 @@
 }
 
 sub export {
+    #   ATTENTION: The OSSP uuid API function "export" conflicts with
+    #   the standardized "export" method the Perl world expects from
+    #   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/) {
         #   the regular OSSP::uuid "export" method
-        croak("export method expects 2 arguments") if (@_ != 2);
+        croak("export method expects 2 arguments") if (@_ != 2); # emulate prototype
         my ($self, $fmt) = @_;
         my $data_ptr;
         if    ($fmt eq 'bin') { $fmt = $self->UUID_FMT_BIN; }
Index: ossp-pkg/uuid/perl/uuid.pod
RCS File: /v/ossp/cvs/ossp-pkg/uuid/perl/Attic/uuid.pod,v
rcsdiff -q -kk '-r1.2' '-r1.3' -u '/v/ossp/cvs/ossp-pkg/uuid/perl/Attic/uuid.pod,v' 2>/dev/null
--- uuid.pod	2004/11/03 18:28:54	1.2
+++ uuid.pod	2004/11/03 18:44:40	1.3
@@ -37,11 +37,12 @@
 
 B<OSSP::uuid> is the Perl binding to the B<OSSP uuid> API.
 
-B<OSSP uuid> is an ISO-C application programming interface (API) and
-corresponding command line interface (CLI) for the generation of DCE
-1.1 and ISO/IEC 11578:1996 compliant I<Universally Unique Identifier>
-(UUID). It supports DCE 1.1 variant UUIDs of version 1 (time and node
-based), version 3 (name based) and version 4 (random number based).
+B<OSSP uuid> is an ISO-C and Perl application programming interface
+(API) and corresponding command line interface (CLI) for the generation
+of DCE 1.1 and ISO/IEC 11578:1996 compliant I<Universally Unique
+Identifier> (UUID). It supports DCE 1.1 variant UUIDs of version 1 (time
+and node based), version 3 (name based) and version 4 (random number
+based).
 
 B<OSSP::uuid> provides two Perl APIs:
 
@@ -165,9 +166,10 @@
 
 uuid(1), uuid-config(1), uuid(3).
 
-=head1 AUTHOR
+=head1 HISTORY
 
-Ralf S. Engelschall, E<lt>rse@engelschall.comE<gt>
+The Perl binding B<OSSP::uuid> to B<OSSP uuid> was implemented in
+November 2004 by Ralf S. Engelschall E<lt>rse@engelschall.comE<gt>.
 
 =cut