Skip Menu |

This queue is for tickets about the Text-EP3 CPAN distribution.

Report information
The Basics
Id: 67835
Status: new
Priority: 0/
Queue: Text-EP3
People
Owner: Nobody in particular
Requestors: bitcard [...] post2.25u.com
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

History Show all quoted text
  Fri Apr 29 11:48:52 2011 bitcard [...] post2.25u.com - Ticket created
Subject: #ifdef not working for $preprocessor->ep3_defines
Hi, text inside #ifdef XXX ... #endif is _not_ printed by preprocessor if "XXX" was defined by $preprocessor- Show quoted text
>ep3_defines.
From module implementation, it seems the reason is that there's no line numbers associated to definitions done via ep3_defines(). Cheers/alex
  Fri Apr 29 13:10:47 2011 bitcard [...] post2.25u.com - Correspondence added
From: bitcard [...] post2.25u.com
The attached patch file seems to solve both this bug and #67833. Could you please review, and create a new release if it's fine? Cheers/alex
Subject: perl-text-ep3.patch
diff -Naur Text-EP3-1.10/lib/Text/EP3.pm Text-EP3-1.11/lib/Text/EP3.pm --- Text-EP3-1.10/lib/Text/EP3.pm 2006-03-02 14:04:50.000000000 +0100 +++ Text-EP3-1.11/lib/Text/EP3.pm 2011-04-29 18:07:01.000000000 +0200 @@ -916,6 +916,8 @@ # Clear the line so that nothing prints $_ = ''; } + # re-sync after directives + $sync_start_sent = 0; } if (! $self->{Keep_Comments}) { # delete the blank lines which are a result of comment deletion @@ -1448,7 +1450,7 @@ print "Ifdef = $self->{Ifdef}\n" if $self->{Debug} & 16; # see if the key is defined - if (! defined $self->{Keyline}{$key}) { + if ((! defined $self->{Define_List}{$key}) && (! defined $self->{Replace_List}{$key})) { $skip = 1; }