Permalink
Browse files

import version 2.22 from backpan

  • Loading branch information...
1 parent 3bb24a6 commit 62e9af2e6a46cfb3b01bfa237b3a4305d79b6bf4 @fperrad committed Mar 31, 2004
Showing with 14 additions and 2 deletions.
  1. +5 −0 Changes
  2. +3 −1 Makefile.PL
  3. +1 −0 idl.pl
  4. +3 −0 lexer.pm
  5. +1 −1 node.pm
  6. +1 −0 symbtab.pm
View
@@ -1,5 +1,10 @@
Revision history for Perl extension CORBA::IDL.
+2.22 Wed Mar 31 12:30:00 2004
+ - prerequest Math::BigInt 1.66 (incompatible with 0.01)
+ - symbtab.pm : add a flag 'collision_allowed'
+ - lexer.pm : delete grammar after parsing
+
2.21 Mon Feb 23 08:30:00 2004
- pb prerequisite vs VERSION
- node.pm : bug with Math::BigInt 1.66 (Perl 5.8)
View
@@ -5,7 +5,9 @@ WriteMakefile(
'NAME' => 'CORBA::IDL',
'VERSION_FROM' => 'node.pm',
'ABSTRACT' => 'CORBA-IDL 3.0 parser',
- 'PREREQ_PM' => {},
+ 'PREREQ_PM' => {
+ 'Math::BigInt' => 1.66
+ },
'PM' => {
'ascii.pm' => '$(INST_LIBDIR)/IDL/ascii.pm',
'lexer.pm' => '$(INST_LIBDIR)/IDL/lexer.pm',
View
1 idl.pl
@@ -35,6 +35,7 @@
use Pod::Usage;
pod2usage(-verbose => 1);
}
+#$parser->YYData->{collision_allowed} = 1;
$parser->Run(@ARGV);
$parser->YYData->{symbtab}->CheckForward();
$parser->YYData->{symbtab}->CheckRepositoryID();
View
@@ -707,6 +707,9 @@ sub Run {
# 0x10 Error Recovery tracing
close $parser->YYData->{fh};
+ delete $parser->{RULES};
+ delete $parser->{STATES};
+ delete $parser->{STACK};
}
1;
View
@@ -8,7 +8,7 @@ use UNIVERSAL;
package CORBA::IDL::node;
use vars qw($VERSION);
-$VERSION = '2.21';
+$VERSION = '2.22';
sub _Build {
my $proto = shift;
View
@@ -852,6 +852,7 @@ sub Insert {
sub InsertUsed {
my $self = shift;
+ return if ($self->{parser}->YYData->{collision_allowed});
my($name) = @_;
## print "InsertUsed '$name'\n";
my $key = lc $name;

0 comments on commit 62e9af2

Please sign in to comment.