fixed version handling to always give a string

diff --git a/lib/System/Introspector/LibDirs/Perl.pm b/lib/System/Introspector/LibDirs/Perl.pm
index 5bc01c4..2d71d0b 100644 (file)
--- a/lib/System/Introspector/LibDirs/Perl.pm
+++ b/lib/System/Introspector/LibDirs/Perl.pm
@@ -38,9 +38,14 @@ sub _gather_libdir_info {
         next unless $metadata->name;
         my $sha = Digest::SHA->new(256);
         $sha->addfile($line);
+        my $version = $metadata->version;
         push @{ $module{ $metadata->name } //= [] }, {
             file        => $line,
-            version     => $metadata->version,
+            version     => (
+                defined($version)
+                ? sprintf('%s', $version)
+                : undef
+            ),
             size        => scalar(-s $line),
             sha256_hex  => $sha->hexdigest,
         };