drop perl requirement to 5.8

[catagits/DOM-Tiny.git] / lib / DOM / Tiny / Collection.pm

diff --git a/lib/DOM/Tiny/Collection.pm b/lib/DOM/Tiny/Collection.pm
index 857a92b..0a41eb5 100644 (file)
--- a/lib/DOM/Tiny/Collection.pm
+++ b/lib/DOM/Tiny/Collection.pm
@@ -7,6 +7,8 @@ use Exporter 'import';
 use List::Util;
 use Scalar::Util 'blessed';
 
+our $VERSION = '0.001';
+
 our @EXPORT_OK = ('c');
 
 sub TO_JSON { [@{shift()}] }
@@ -42,7 +44,7 @@ sub grep {
 }
 
 sub join {
-  join $_[1] // '', map {"$_"} @{$_[0]};
+  join +(defined $_[1] ? $_[1] : ''), map {"$_"} @{$_[0]};
 }
 
 sub last { shift->[-1] }