Permalink
Browse files

import version 2.43 from backpan

  • Loading branch information...
1 parent 936e11a commit f49fcc09d5fe6fe2daf865ea5c888d9151d88b5b @fperrad committed with Jan 4, 2005
Showing with 22 additions and 3 deletions.
  1. +3 −0 Changes
  2. +2 −1 MANIFEST
  3. +11 −0 META.yml
  4. +6 −2 node.pm
View
@@ -1,5 +1,8 @@
Revision history for Perl extension CORBA::IDL.
+2.43 Tue Jan 4 18:30:00 2005
+ - bug [cpan #9366] AST for Enum-discriminated Unions always indicates 'need_default'
+
2.42 Tue Jul 27 12:30:00 2004
- node.pm : 'float' 0 is out of range (ticket 7114 on rt.cpan.org)
- bug : [props] for 'typedef'
View
@@ -34,4 +34,5 @@ corba_idl/CORBA_Policy.idl
corba_idl/CORBA_Pollable.idl
corba_idl/CORBA_StandardExceptions.idl
corba_idl/CORBA_Stream.idl
-corba_idl/CORBA_TypeCode.idl
+corba_idl/CORBA_TypeCode.idl
+META.yml Module meta-data (added by MakeMaker)
View
@@ -0,0 +1,11 @@
+# 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.43
+version_from: node.pm
+installdirs: site
+requires:
+ Math::BigInt: 1.66
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
View
@@ -8,7 +8,7 @@ use UNIVERSAL;
package CORBA::IDL::node;
use vars qw($VERSION);
-$VERSION = '2.42';
+$VERSION = '2.43';
sub _Build {
my $proto = shift;
@@ -1770,7 +1770,11 @@ sub Configure {
type => $dis,
list_expr => $_
);
- $key = $cst->{value};
+ if ($defn->isa('EnumType')) {
+ $key = $cst->{value}->{full};
+ } else {
+ $key = $cst->{value};
+ }
push @list, $cst;
push @list_all, $cst;
}

0 comments on commit f49fcc0

Please sign in to comment.