perl 5.8 support (mst)

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

diff --git a/lib/DOM/Tiny/_Collection.pm b/lib/DOM/Tiny/_Collection.pm
index eab6729..4c27742 100644 (file)
--- a/lib/DOM/Tiny/_Collection.pm
+++ b/lib/DOM/Tiny/_Collection.pm
@@ -44,7 +44,7 @@ sub grep {
 }
 
 sub join {
-  join $_[1] // '', map {"$_"} @{$_[0]};
+  join +(defined($_[1]) ? $_[1] : ''), map {"$_"} @{$_[0]};
 }
 
 sub last { shift->[-1] }