Skip Menu |
 

This queue is for tickets about the YAPE-Regex-Explain CPAN distribution.

Report information
The Basics
Id: 14115
Status: resolved
Priority: 0/
Queue: YAPE-Regex-Explain

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

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: 4.00



Subject: ->explain() w/ 'silent' or 'regex' is broken
Download (untitled) / with headers
text/plain 412b
Passing in either parameter 'silent' or 'regex' to ->explain() causes no output to be returned. Both modules were installed from ppd using the normal AS repositories. ActiveState perl 5.8.4 (810) YAPE::Regex::Explain 3.011 YAPE::Regex 3.01 #!perl use strict; use warnings; use YAPE::Regex::Explain; for ( qw( silent regex ) ) { print ">", YAPE::Regex::Explain->new( "..." )->explain( $_ ), "<\n"; }
From: gsullivan [...] cpan.org
Here is a patch to fix the issue. 'silent' or 'regex' now produces output.
Subject: diffu.txt
Download diffu.txt
text/plain 296b
--- Explain.pm 2001-05-07 12:18:53.000000000 -0400 +++ Explain.pm.fix 2010-08-19 16:11:03.784319000 -0400 @@ -126,6 +126,7 @@ sub explain { my $self = shift; $using_rex = shift || ''; + @{[ $self->parse ]}; local $^A = ""; $^A = << "END" if not $using_rex; The regular expression:
Download (untitled) / with headers
text/plain 296b
On Thu Aug 19 16:34:53 2010, GSULLIVAN wrote: Show quoted text
> Here is a patch to fix the issue. > 'silent' or 'regex' now produces output.
The patch has been applied in YAPE::Regex::Explain 4.00. Now, passing in either parameter 'silent' or 'regex' to ->explain() causes output to be returned, as expected.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.