Re: search and replace regex return value

Replies are listed 'Best First'.
Re^2: search and replace regex return value by LanX (Saint) on May 07, 2017 at 14:15 UTC
Could it be a blessed object or something else? Probably you should check the value with Data::Dump and Devel::Peek Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply]
Re^3: search and replace regex return value by haukex (Archbishop) on May 07, 2017 at 14:47 UTC
Could it be a blessed object or something else? I think the AM post is onto something, Devel::Peek shows that `$CFG{target}` has some magic of type `PERL_MAGIC_uvar` attached to it. Not being a Tk expert I can only guess that the magic is probably necessary to bind the value to the widget, but the fact that this causes `$CFG{target} =~ ...` to behave differently than usual smells like a bug to me. But if the app needs to work on a range of Tk versions, it looks like the workaround might be necessary.	[reply] [d/l] [select]
Re^4: search and replace regex return value by LanX (Saint) on May 07, 2017 at 16:23 UTC
OK but > Workaround is simple `my $target = $CFG{target} ;` Might not be enough in order to loose special flags. I'd cast explicitly to get a new value `my $target = "" . $CFG{target} ;` Unfortunately I can't test at the moment. Cheers Rolf _{(addicted to the Perl Programming Language and ☆☆☆☆ :) Je suis Charlie!}	[reply] [d/l] [select]
Re^5: search and replace regex return value by haukex (Archbishop) on May 07, 2017 at 17:00 UTC
Re^2: search and replace regex return value by milma (Initiate) on May 07, 2017 at 20:36 UTC
The problem does not exist with perl version 5.24.1 and also the workaround `my $target = $CFG{target} ;` resolves the issue in version 5.22, so I have alternative ways to resolve my issue. Thanks for your help.	[reply] [d/l]