perl-Glib r1047 - trunk

[tsch svn gnome org]

Author: tsch
Date: Wed Nov 12 18:54:19 2008
New Revision: 1047
URL: http://svn.gnome.org/viewvc/perl-Glib?rev=1047&view=rev

Log:
Add newlines at the end of debugging messages that lack them to keep perl from
adding line number information.


Modified:
   trunk/ChangeLog
   trunk/GObject.xs

Modified: trunk/GObject.xs
==============================================================================
--- trunk/GObject.xs	(original)
+++ trunk/GObject.xs	Wed Nov 12 18:54:19 2008
@@ -691,7 +691,7 @@
         	return;
 
 #ifdef NOISY
-        warn ("gobject_destroy_wrapper (%p)[%d]", obj,
+        warn ("gobject_destroy_wrapper (%p)[%d]\n", obj,
               SvREFCNT ((SV*)REVIVE_UNDEAD(obj)));
 #endif
         obj = REVIVE_UNDEAD(obj);
@@ -758,7 +758,7 @@
 	/* take the easy way out if we can */
 	if (!object) {
 #ifdef NOISY
-		warn ("gperl_new_object (NULL) => undef");
+		warn ("gperl_new_object (NULL) => undef\n");
 #endif
 		return &PL_sv_undef;
 	}
@@ -817,7 +817,7 @@
                  * object */
 
 #ifdef NOISY
-		warn ("gperl_new_object%d %s(%p)[%d] => %s (%p) (NEW)", own,
+		warn ("gperl_new_object%d %s(%p)[%d] => %s (%p) (NEW)\n", own,
 		      G_OBJECT_TYPE_NAME (object), object, object->ref_count,
 		      gperl_object_package_from_type (G_OBJECT_TYPE (object)),
 		      SvRV (sv));
@@ -840,7 +840,7 @@
         }
 
 #ifdef NOISY
-	warn ("gperl_new_object%d %s(%p)[%d] => %s (%p)[%d] (PRE-OWN)", own,
+	warn ("gperl_new_object%d %s(%p)[%d] => %s (%p)[%d] (PRE-OWN)\n", own,
 	      G_OBJECT_TYPE_NAME (object), object, object->ref_count,
 	      gperl_object_package_from_type (G_OBJECT_TYPE (object)),
 	      SvRV (sv), SvREFCNT (SvRV (sv)));
@@ -1104,7 +1104,7 @@
         if (!object) /* Happens on object destruction. */
                 return;
 #ifdef NOISY
-        warn ("DESTROY< (%p)[%d] => %s (%p)[%d]",
+        warn ("DESTROY< (%p)[%d] => %s (%p)[%d]\n",
               object, object->ref_count,
               gperl_object_package_from_type (G_OBJECT_TYPE (object)),
               sv, SvREFCNT (SvRV(sv)));