perl's s2p(1) produces non-equivalent perl for simple sed substitution. #12464
Labels
Comments
From ralph@inputplus.co.ukCompare $ sed 's/c*$/x/g' <<<abc sed's behaviour is correct for sed. The Perl that s2p(1) produces https://bugs.launchpad.net/ubuntu/+source/perl/+bug/1008584 is my Perl Info |
From @arcRalph Corderoy <perlbug-followup@perl.org> wrote:
The attached patch adds a TODO test for this report. I've verified -- |
From @arc0001-Add-TODO-tests-for-RT-115156.patchFrom aef3259365bce9137f2d690b2b925278b2f39df8 Mon Sep 17 00:00:00 2001
From: Aaron Crane <arc@cpan.org>
Date: Sun, 7 Oct 2012 12:40:52 +0100
Subject: [PATCH] Add TODO tests for RT#115156
---
t/x2p/s2p.t | 15 +++++++++++++++
1 file changed, 15 insertions(+)
diff --git a/t/x2p/s2p.t b/t/x2p/s2p.t
index 9707a8b..0a0716d 100644
--- a/t/x2p/s2p.t
+++ b/t/x2p/s2p.t
@@ -627,6 +627,19 @@ s/a\{3\}/a rep 3/
[TheEnd]
},
+### s2 ### RT #115156
+'s2' => {
+ todo => 'RT #115156',
+ script => 's/1*$/x/g',
+ input => 'bins',
+ expect => <<'[TheEnd]',
+0x
+x
+1000x
+1000x
+[TheEnd]
+},
+
### t ###
't' => {
script => join( "\n",
@@ -815,6 +828,8 @@ my $indat = '';
for my $tc ( sort keys %testcase ){
my( $psedres, $s2pres );
+ local $TODO = $testcase{$tc}{todo};
+
# 1st test: run psed
# prepare the script
open( SED, ">$script" ) || goto FAIL_BOTH;
--
1.7.12.1
|
|
The RT System itself - Status changed from 'new' to 'open' |
From @khwilliamsonOn 10/07/2012 05:49 AM, Aaron Crane wrote:
Thanks, applied as f8cafa5 |
|
Moving to App::s2p makes sense |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Migrated from rt.perl.org#115156 (status was 'open')
Searchable as RT115156$
The text was updated successfully, but these errors were encountered: