Skip to content
Browse files

import version 2.62 from backpan

  • Loading branch information...
1 parent 09f04c3 commit f66ae5c1633ec5f2b18a6b38c14f8e5f09401a1e @fperrad committed with Oct 24, 2007
Showing with 20 additions and 14 deletions.
  1. +3 −0 Changes
  2. +13 −10 META.yml
  3. +1 −1 lib/CORBA/IDL.pm
  4. +3 −3 lib/CORBA/IDL/UidVisitor.pm
View
3 Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension CORBA::IDL.
+2.62 Wed Oct 24 12:30:00 2007
+ - UidVisitor.pm : fix a regression (from 2.61)
+
2.61 Fri Oct 19 08:30:00 2007
- package refactoring (avoid PAUSE indexer errors)
View
23 META.yml
@@ -1,13 +1,16 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: CORBA-IDL
-version: 2.61
-version_from: lib/CORBA/IDL.pm
-installdirs: site
-requires:
+--- #YAML:1.0
+name: CORBA-IDL
+version: 2.62
+abstract: CORBA-IDL 3.0 parser
+license: ~
+generated_by: ExtUtils::MakeMaker version 6.3201
+distribution_type: module
+requires:
Digest::SHA1: 0
Math::BigInt: 1.66
Parse::Yapp: 0
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
+author:
+ - Francois PERRAD (francois.perrad@gadz.org)
View
2 lib/CORBA/IDL.pm
@@ -3,7 +3,7 @@ use warnings;
package CORBA::IDL;
-our $VERSION = '2.61';
+our $VERSION = '2.62';
use CORBA::IDL::ParserFactory;
View
6 lib/CORBA/IDL/UidVisitor.pm
@@ -8,7 +8,7 @@ package CORBA::IDL::UidVisitor;
use strict;
use warnings;
-our $VERSION = '2.60';
+our $VERSION = '2.62';
use Digest::SHA1 qw(sha1_hex);
@@ -222,11 +222,11 @@ sub visitUnionType {
foreach my $case (@{$node->{list_expr}}) {
my $elt = $self->_get_defn($case->{element});
foreach my $label (@{$case->{list_label}}) {
- if (ref $label eq 'Default') {
+ if (ref $label eq 'CORBA::IDL::Default') {
$uid_str .= '_default_';
}
else {
- if (ref $label->{value} eq 'Enum') {
+ if (ref $label->{value} eq 'CORBA::IDL::Enum') {
$uid_str .= $label->{value}->{idf};
}
else {

0 comments on commit f66ae5c

Please sign in to comment.
Something went wrong with that request. Please try again.