Gabor Szabo <ga...@szabgab.com> writes:
> On Sun, Mar 11, 2012 at 11:03 PM, Gabor Szabo <ga...@szabgab.com> wrote:
>> On Sun, Mar 11, 2012 at 7:10 PM, Andreas J. Koenig
>> <andreas.koenig.7os6v...@franz.ak.mind.de> wrote:
>>>>>>>> On Sun, 11 Mar 2012 13:50:08 +0200, Gabor Szabo <ga...@szabgab.com>
>>>>>>>> said:
>>>
>>> > Could someone (especially BinGOs), please take a look at this report:
>>> >
>>> http://www.cpantesters.org/cpan/report/8396ba36-65c0-11e1-9d6f-f6dbfa7543f5
>>>
>>> > It seems to complain about two identical strings not being the same.
>>>
>>> > Any idea why would that happen?
>>>
>>> ^M
>>>
>>> You must download the report, not look at it in the browser.
>>
>> thanks.
>>
>> What I still don't understand is where have those ^M-es got there?
>> And why only on some systems?
>>
>> After downloading the report I saw that on some lines there were ^M in both
>> the expected and the actual, while on other lines only one of the
>> versions had the ^M
>> characters.
>>
>> Gabor
>
>
> This is even weirder now.
> I got this report (on a new release of the same package)
> http://www.cpantesters.org/cpan/report/d26facd0-6b83-11e1-b4a3-91c8ad4f1d97
>
> after
> $ wget
> http://www.cpantesters.org/cpan/report/d26facd0-6b83-11e1-b4a3-91c8ad4f1d97
> opening the file with
> $ vim d26facd0-6b83-11e1-b4a3-91c8ad4f1d97
> I don't see any ^M at all in this one.
>
> In the other one at least I could see the ^M-s.
> After removing the other parts of the mail the two strings seem to be the
> same (using diff).
Maybe the difference is the reporting system (CPANPLUS-based vs.
CPAN::Reporter)? Maybe one is preserving the ^M, the other isn't?
Anyway, I put a Test::Differences::eq_or_diff check into the failing
test script and it's indeed ^M being problematic here:
#
+----+-----------------------------------------------------------------+---------------------------------------------------------------+
# | Elt|Got
|Expected |
#
+----+-----------------------------------------------------------------+---------------------------------------------------------------+
# | 0|bless( {
|bless( { |
# * 1| Data => 'Opening: I am ready to send you updates.\r\n |
Data => 'Opening: I am ready to send you updates.\n *
# * 2|\r\n |\n
*
# * 3|-----------------------------------------------------------\r\n
|-----------------------------------------------------------\n *
# * 4|CONFIRM BY VISITING THE LINK BELOW:\r\n
|CONFIRM BY VISITING THE LINK BELOW:\n *
# * 5|\r\n |\n
*
# * 6|<% url %>\r\n |<%
url %>\n *
# * 7|\r\n |\n
*
# * 8|Click the link above to give me permission to send you\r\n |Click
the link above to give me permission to send you\n *
# * 9|information. It\'s fast and easy! If you cannot click the\r\n
|information. It\'s fast and easy! If you cannot click the\n *
# * 10|full URL above, please copy and paste it into your web\r\n |full
URL above, please copy and paste it into your web\n *
# * 11|browser.\r\n
|browser.\n *
# * 12|\r\n |\n
*
# * 13|-----------------------------------------------------------\r\n
|-----------------------------------------------------------\n *
# * 14|If you do not want to confirm, simply ignore this message.\r\n |If
you do not want to confirm, simply ignore this message.\n *
# * 15|\r\n |\n
*
# * 16|Thank You Again!\r\n |Thank
You Again!\n *
# * 17|\r\n |\n
*
# | 18|', |',
|
# | 19| From => 'adm...@dwimmer.org', |
From => 'adm...@dwimmer.org', |
# | 20| Subject => 'Test list registration - email validation', |
Subject => 'Test list registration - email validation', |
# | 21| To => 't...@dwimmer.org' |
To => 't...@dwimmer.org' |
# | 22|}, 'MIME::Lite' ) |},
'MIME::Lite' ) |
#
+----+-----------------------------------------------------------------+---------------------------------------------------------------+
Regards,
Slaven
--
Slaven Rezic - slaven <at> rezic <dot> de
Berlin Perl Mongers - http://berlin.pm.org
