diff --git a/ext/FCM/bin/fcm_internal b/ext/FCM/bin/fcm_internal
index c477b5d1571c46ff41add2f75e65904b87788bfe..3c95240ea857bbc7faca7cba1437801035417fd5 100755
--- a/ext/FCM/bin/fcm_internal
+++ b/ext/FCM/bin/fcm_internal
@@ -520,7 +520,7 @@ sub catfile {
   my $path  = shift @names;
 
   for my $name (@names) {
-    $path .= '/' . $name if $name;
+    $path .= '/' . $name if (length $name);
   }
 
   return $path;