Skip Menu |

This queue is for tickets about the PPI-PowerToys CPAN distribution.

Report information
The Basics
Id: 30349
Status: open
Priority: 0/
Queue: PPI-PowerToys

People
Owner: Nobody in particular
Requestors: djerius [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: 0.08
Fixed in: 0.12



Subject: ppi_version doesn't recognize our $VERSION
ppi_version doesn't recognize the VERSION line if it is preceded by "our", as in our $VERSION = '1.2.3'; The attached patch adds this capability.
Subject: our.patch
102c102,104 < $_[1]->sprevious_sibling and return ''; --- > # (other than "our") > my $our = $_[1]->sprevious_sibling; > $our && $our->content ne 'our' and return '';
Attached is a patch for version 0.11
# This is a patch for PPI-PowerToys-0.11.orig to update it to PPI-PowerToys-0.11 # # To apply this patch: # STEP 1: Chdir to the source directory. # STEP 2: Run the 'applypatch' program with this patch file as input. # # If you do not have 'applypatch', it is part of the 'makepatch' package # that you can fetch from the Comprehensive Perl Archive Network: # http://www.perl.com/CPAN/authors/Johan_Vromans/makepatch-x.y.tar.gz # In the above URL, 'x' should be 2 or higher. # # To apply this patch without the use of 'applypatch': # STEP 1: Chdir to the source directory. # STEP 2: Run the 'patch' program with this file as input. # #### End of Preamble #### #### Patch data follows #### diff -c 'PPI-PowerToys-0.11.orig/lib/PPI/App/ppi_version.pm' 'PPI-PowerToys-0.11/lib/PPI/App/ppi_version.pm' Index: ./lib/PPI/App/ppi_version.pm *** ./lib/PPI/App/ppi_version.pm Tue Jul 22 14:56:22 2008 --- ./lib/PPI/App/ppi_version.pm Fri Aug 29 16:07:38 2008 *************** *** 62,68 **** $_[1]->content =~ m/^\$(?:\w+::)*VERSION$/ or return ''; # It is the first thing in the statement ! $_[1]->sprevious_sibling and return ''; # Followed by an "equals" my $equals = $_[1]->snext_sibling or return ''; --- 62,70 ---- $_[1]->content =~ m/^\$(?:\w+::)*VERSION$/ or return ''; # It is the first thing in the statement ! # ( other than "our") ! my $our = $_[1]->sprevious_sibling; ! $our && $our->content ne 'our' and return ''; # Followed by an "equals" my $equals = $_[1]->snext_sibling or return ''; #### End of Patch data #### #### ApplyPatch data follows #### # Data version : 1.0 # Date generated : Fri Aug 29 16:32:41 2008 # Generated by : makepatch 2.03 # Recurse directories : Yes # Excluded files : (\A|/).*\~\Z # (\A|/).*\.a\Z # (\A|/).*\.bak\Z # (\A|/).*\.BAK\Z # (\A|/).*\.elc\Z # (\A|/).*\.exe\Z # (\A|/).*\.gz\Z # (\A|/).*\.ln\Z # (\A|/).*\.o\Z # (\A|/).*\.obj\Z # (\A|/).*\.olb\Z # (\A|/).*\.old\Z # (\A|/).*\.orig\Z # (\A|/).*\.rej\Z # (\A|/).*\.so\Z # (\A|/).*\.Z\Z # (\A|/)\.del\-.*\Z # (\A|/)\.make\.state\Z # (\A|/)\.nse_depinfo\Z # (\A|/)core\Z # (\A|/)tags\Z # (\A|/)TAGS\Z # p 'lib/PPI/App/ppi_version.pm' 6247 1220040458 0100644 #### End of ApplyPatch data #### #### End of Patch kit [created: Fri Aug 29 16:32:41 2008] #### #### Patch checksum: 57 2219 6291 #### #### Checksum: 75 2920 64409 ####
This was added in 0.12 which was released on 2009-04-30.