|
Check-in Number:
|
4825 | |
| Date: |
2004-Nov-03 19:44:40 (local)
2004-Nov-03 18:44:40 (UTC) |
| User: | rse |
| Branch: | |
| Comment: |
polish comments |
| Tickets: |
|
| Inspections: |
|
| Files: |
|
ossp-pkg/uuid/perl/uuid.pm 1.2 -> 1.3
--- 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; }
|
|
ossp-pkg/uuid/perl/uuid.pod 1.2 -> 1.3
--- 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
|
|
