Use empty string instead of undef in substitution.
authorMatthijs Kooijman <matthijs@stdin.nl>
Mon, 4 Jan 2010 19:47:12 +0000 (20:47 +0100)
committerMatthijs Kooijman <matthijs@stdin.nl>
Mon, 4 Jan 2010 19:47:12 +0000 (20:47 +0100)
This silences a warning.

general/interpolate_fancy

index 4f5b6ebc3ec01d201a416e57ec77bb9a45871fef..c4557698c18a740220a1f35ed99be4668e1d4ab5 100644 (file)
@@ -134,7 +134,7 @@ sub do_interpolate {
     # Variable expansion (unconditional, recursive)
     #
     # e.g. <$var />
-    while( $template =~ s/<\$([a-zA-Z?]\w+(?:::\w+)*)\s+?\/>/"defined \$$1 ? \$$1 : undef"/gsee ) { }
+    while( $template =~ s/<\$([a-zA-Z?]\w+(?:::\w+)*)\s+?\/>/"defined \$$1 ? \$$1 : ''"/gsee ) { }
 
     #
     # Actions