Skip Menu |

This queue is for tickets about the V CPAN distribution.

Report information
The Basics
Id: 127997
Status: open
Priority: 0/
Queue: V
People
Owner: Nobody in particular
Requestors: HMBRAND [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: 1.33
Fixed in: (no value)

History Show all quoted text
  Wed Dec 12 03:23:04 2018 HMBRAND [...] cpan.org - Ticket created
Subject: Does not detect v-style versions
e.g. Time::Mock uses --8<--- package Time::Mock; $VERSION = v0.0.2; -->8--- V returns blank
  Wed Dec 12 14:33:55 2018 ANDK [...] cpan.org - Correspondence added
What would you expect? I would expect the same output as from $Time::Mock::VERSION, and that it is: % perl -MV=Time::Mock | perl -0777 -e 'use Dumpvalue; $_ = <>; print Dumpvalue->new(unctrl=>"unctrl")->stringify(substr($_,-4,3)), "\n"' "^@^@^B" % perl -MTime::Mock -e 'use Dumpvalue; print Dumpvalue->new(unctrl=>"unctrl")->stringify($Time::Mock::VERSION), "\n"' "^@^@^B"
  Wed Dec 12 14:33:56 2018 The RT System itself - Status changed from 'new' to 'open'
  Thu Dec 13 04:04:51 2018 HMBRAND [...] cpan.org - Correspondence added
On Wed Dec 12 14:33:55 2018, ANDK wrote: Show quoted text
> What would you expect? I would expect the same output as from > $Time::Mock::VERSION, and that it is: > > % perl -MV=Time::Mock | perl -0777 -e 'use Dumpvalue; $_ = <>; print > Dumpvalue->new(unctrl=>"unctrl")->stringify(substr($_,-4,3)), "\n"' > "^@^@^B"
$ perl -MTime::Mock -MData::Peek -wE'DDisplay $Time::Mock::VERSION' "\0\0\2" $ perl -MData::Peek -E'BEGIN { $V::NO_EXIT = 1 } require V; $a = V::get_version ("Time::Mock"); DHexDump $a' 0000 00 00 02 ... but I'd like V to be human-friendly on default output $ perl -MV=Time::Mock Time::Mock /pro/lib/perl5/site_perl/5.28.1/Time/Mock.pm: → perl -MV=Time::Mock Time::Mock /pro/lib/perl5/site_perl/5.28.1/Time/Mock.pm: v0.0.2 Show quoted text
> % perl -MTime::Mock -e 'use Dumpvalue; print Dumpvalue-
> >new(unctrl=>"unctrl")->stringify($Time::Mock::VERSION), "\n"'
> "^@^@^B"