[Mud-builder-commits] r245 - trunk/lib/MUD

[gcobb at garage.maemo.org]

Author: gcobb
Date: 2008-12-06 01:10:13 +0200 (Sat, 06 Dec 2008)
New Revision: 245

Modified:
   trunk/lib/MUD/Package.pm
Log:
Remove terminating newlines from control file values

Modified: trunk/lib/MUD/Package.pm
===================================================================
--- trunk/lib/MUD/Package.pm	2008-12-05 18:43:20 UTC (rev 244)
+++ trunk/lib/MUD/Package.pm	2008-12-05 23:10:13 UTC (rev 245)
@@ -112,6 +112,9 @@
 
     # Convert '\n' to a newline
     $value =~ s/(\\n)+ */\n/g;
+
+    # Remove a terminating newline
+    $value =~ s/(\n)+$//;
     
     my $wrapped = wrap("", "  ", "$field: $value");
     $wrapped =~ s/\n(\s*).?\s*\n/\n$1.\n/g;