diff options
| author | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2016-05-23 12:28:57 -0700 |
|---|---|---|
| committer | Tatsuhiko Miyagawa <miyagawa@bulknews.net> | 2016-05-23 12:28:57 -0700 |
| commit | a1842ba0c256fcd48e87bc9d2159ea5ea5965b6d (patch) | |
| tree | 0e5d0f66cc1145332f080e2e5de566716a056258 | |
| parent | 4f0890ad408e65d70f22a29d84a2c746d2193cf9 (diff) | |
| download | carton-a1842ba0c256fcd48e87bc9d2159ea5ea5965b6d.tar.gz | |
undef is a valid version string, no need to special case here
| -rw-r--r-- | lib/Carton/Snapshot/Parser.pm | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/lib/Carton/Snapshot/Parser.pm b/lib/Carton/Snapshot/Parser.pm index 68330de..8959bc7 100644 --- a/lib/Carton/Snapshot/Parser.pm +++ b/lib/Carton/Snapshot/Parser.pm @@ -71,7 +71,6 @@ my $machine = { re => qr/^\s{6}([0-9A-Za-z_:]+) ([v0-9\._,=\!<>\s]+|undef)/, code => sub { my($stash, $snapshot, $module, $version) = @_; - $version = undef if $version eq 'undef'; if ($stash->{property} eq 'provides') { $stash->{dist}->provides->{$module} = { version => $version }; } else { |