More miracle mods

[melted] / src / framework / mlt_properties.c

diff --git a/src/framework/mlt_properties.c b/src/framework/mlt_properties.c
index eb571ad..679d97a 100644 (file)
--- a/src/framework/mlt_properties.c
+++ b/src/framework/mlt_properties.c
@@ -342,9 +342,13 @@ void mlt_properties_close( mlt_properties this )
        property_list *list = this->private;
        int index = 0;
 
+       int debug = mlt_properties_get_int( this, "debug" );
+
        // Clean up names and values
        for ( index = 0; index < list->count; index ++ )
        {
+               if ( debug )
+                       fprintf( stderr, "closing %s\n", list->name[ index ] );
                free( list->name[ index ] );
                mlt_property_close( list->value[ index ] );
        }