r28819 - in /trunk/libgnome2-vfs-perl: ChangeLog MANIFEST MANIFEST.SKIP META.yml NEWS VFS.pm debian/changelog vfs2perl.c xs/GnomeVFSMime.xs

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Sun Dec 28 10:24:40 UTC 2008


Author: ryan52-guest
Date: Sun Dec 28 10:24:37 2008
New Revision: 28819

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=28819
Log:
New upstream release

Modified:
    trunk/libgnome2-vfs-perl/ChangeLog
    trunk/libgnome2-vfs-perl/MANIFEST
    trunk/libgnome2-vfs-perl/MANIFEST.SKIP
    trunk/libgnome2-vfs-perl/META.yml
    trunk/libgnome2-vfs-perl/NEWS
    trunk/libgnome2-vfs-perl/VFS.pm
    trunk/libgnome2-vfs-perl/debian/changelog
    trunk/libgnome2-vfs-perl/vfs2perl.c
    trunk/libgnome2-vfs-perl/xs/GnomeVFSMime.xs

Modified: trunk/libgnome2-vfs-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/ChangeLog?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/ChangeLog (original)
+++ trunk/libgnome2-vfs-perl/ChangeLog Sun Dec 28 10:24:37 2008
@@ -1,3 +1,14 @@
+2008-02-24  Torsten Schoenfeld  <kaffeetisch at gmx.de>
+
+	* NEWS
+	* VFS.pm: Stable release 1.081.
+
+2008-02-24  Torsten Schoenfeld  <kaffeetisch at gmx.de>
+
+	* vfs2perl.c
+	* xs/GnomeVFSMime.xs: Changes in libgnomevfs 2.10 broke our
+	GnomeVFSMimeApplication handling.  Fix it.
+
 2007-09-16	kaffeetisch
 
 	* VFS.pm

Modified: trunk/libgnome2-vfs-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/MANIFEST?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/MANIFEST (original)
+++ trunk/libgnome2-vfs-perl/MANIFEST Sun Dec 28 10:24:37 2008
@@ -1,25 +1,24 @@
 ChangeLog
-LICENSE
-MANIFEST			This list of files
-MANIFEST.SKIP
-Makefile.PL
-NEWS
-README
-VFS.pm
 copyright.pod
 doctypes
 examples/downloader.pl
 examples/monitor.pl
+LICENSE
+Makefile.PL
+MANIFEST			This list of files
+MANIFEST.SKIP
 maps-2.0
 maps-2.6
 maps-2.8
+NEWS
 perl-Gnome2-VFS.spec.in
+README
 t/GnomeVFS.t
 t/GnomeVFSAddress.t
 t/GnomeVFSApplicationRegistry
 t/GnomeVFSAsync
+t/GnomeVFSDirectory.t
 t/GnomeVFSDNSSD
-t/GnomeVFSDirectory.t
 t/GnomeVFSDrive
 t/GnomeVFSFileInfo.t
 t/GnomeVFSMime
@@ -30,6 +29,7 @@
 t/GnomeVFSVolume
 t/GnomeVFSVolumeMonitor
 t/GnomeVFSXfer.t
+VFS.pm
 vfs.typemap
 vfs2perl.c
 vfs2perl.h
@@ -37,8 +37,8 @@
 xs/GnomeVFSAddress.xs
 xs/GnomeVFSApplicationRegistry.xs
 xs/GnomeVFSAsync.xs
+xs/GnomeVFSDirectory.xs
 xs/GnomeVFSDNSSD.xs
-xs/GnomeVFSDirectory.xs
 xs/GnomeVFSDrive.xs
 xs/GnomeVFSFileInfo.xs
 xs/GnomeVFSInit.xs

Modified: trunk/libgnome2-vfs-perl/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/MANIFEST.SKIP?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/MANIFEST.SKIP (original)
+++ trunk/libgnome2-vfs-perl/MANIFEST.SKIP Sun Dec 28 10:24:37 2008
@@ -12,3 +12,4 @@
 \.sw.$
 \.tar\.gz$
 xs/.+\.c$
+\.releaserc$

Modified: trunk/libgnome2-vfs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/META.yml?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/META.yml (original)
+++ trunk/libgnome2-vfs-perl/META.yml Sun Dec 28 10:24:37 2008
@@ -1,14 +1,15 @@
 --- #YAML:1.0
 name:                Gnome2-VFS
-version:             1.080
+version:             1.081
 abstract:            Perl interface to the 2.x series of the GNOME VFS library
 license:             ~
-generated_by:        ExtUtils::MakeMaker version 6.36
+author:              ~
+generated_by:        ExtUtils::MakeMaker version 6.42
 distribution_type:   module
 requires:     
     ExtUtils::Depends:             0.20
     ExtUtils::PkgConfig:           1.03
     Glib:                          1.120
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.2.html
-    version: 1.2
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: trunk/libgnome2-vfs-perl/NEWS
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/NEWS?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/NEWS (original)
+++ trunk/libgnome2-vfs-perl/NEWS Sun Dec 28 10:24:37 2008
@@ -1,3 +1,8 @@
+Overview of changes in Gnome2-VFS 1.081
+=======================================
+
+* Fix the GnomeVFSMimeApplication handling on libgnomevfs >= 2.10.
+
 Overview of changes in Gnome2-VFS 1.080
 =======================================
 

Modified: trunk/libgnome2-vfs-perl/VFS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/VFS.pm?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/VFS.pm (original)
+++ trunk/libgnome2-vfs-perl/VFS.pm Sun Dec 28 10:24:37 2008
@@ -1,4 +1,4 @@
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/VFS.pm,v 1.38 2007/09/16 17:42:09 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/VFS.pm,v 1.39 2008/02/24 15:32:04 kaffeetisch Exp $
 
 package Gnome2::VFS;
 
@@ -26,7 +26,7 @@
 
 # --------------------------------------------------------------------------- #
 
-our $VERSION = '1.080';
+our $VERSION = '1.081';
 
 sub import {
   my ($self) = @_;

Modified: trunk/libgnome2-vfs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/debian/changelog?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/debian/changelog (original)
+++ trunk/libgnome2-vfs-perl/debian/changelog Sun Dec 28 10:24:37 2008
@@ -1,4 +1,4 @@
-libgnome2-vfs-perl (1.080-2) UNRELEASED; urgency=low
+libgnome2-vfs-perl (1.081-1) UNRELEASED; urgency=low
 
   * Take over for the Debian Perl Group on maintainer's request
     (http://lists.debian.org/debian-perl/2008/12/msg00163.html)
@@ -12,8 +12,9 @@
   * Add debian/watch.
   * Add me to uploaders, remove old maintainer(s)
   * fix watch file
+  * New upstream release
 
- -- Ryan Niebur <ryanryan52 at gmail.com>  Sun, 28 Dec 2008 01:24:59 -0800
+ -- Ryan Niebur <ryanryan52 at gmail.com>  Sun, 28 Dec 2008 02:24:21 -0800
 
 libgnome2-vfs-perl (1.080-1) unstable; urgency=low
 

Modified: trunk/libgnome2-vfs-perl/vfs2perl.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/vfs2perl.c?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/vfs2perl.c (original)
+++ trunk/libgnome2-vfs-perl/vfs2perl.c Sun Dec 28 10:24:37 2008
@@ -15,7 +15,7 @@
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
- * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/vfs2perl.c,v 1.4 2005/03/08 17:07:13 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/vfs2perl.c,v 1.5 2008/02/24 15:27:16 kaffeetisch Exp $
  */
 
 #include "vfs2perl.h"
@@ -338,7 +338,6 @@
 
 /* ------------------------------------------------------------------------- */
 
-/* FIXME: leak? */
 SV *
 newSVGnomeVFSMimeApplication (GnomeVFSMimeApplication *application)
 {
@@ -346,6 +345,10 @@
 
 	if (application == NULL)
 		return &PL_sv_undef;
+
+#if VFS_CHECK_VERSION (2, 10, 0)
+	sv_magic ((SV *) hash, 0, PERL_MAGIC_ext, (const char *) application, 0);
+#endif
 
 	hv_store (hash, "id", 2, newSVpv (application->id, PL_na), 0);
 	hv_store (hash, "name", 4, newSVpv (application->name, PL_na), 0);
@@ -364,16 +367,22 @@
 		hv_store (hash, "supported_uri_schemes", 21, newRV_noinc ((SV *) array), 0);
 	}
 
-	/* gnome_vfs_mime_application_free (application); */
-
 	return sv_bless (newRV_noinc ((SV *) hash),
 	                 gv_stashpv ("Gnome2::VFS::Mime::Application", 1));
 }
 
-/* FIXME: leak? */
 GnomeVFSMimeApplication *
 SvGnomeVFSMimeApplication (SV *object)
 {
+#if VFS_CHECK_VERSION (2, 10, 0)
+	GnomeVFSMimeApplication *application;
+	MAGIC *mg;
+
+	if (!object || !SvOK (object) || !SvROK (object) || !(mg = mg_find (SvRV (object), PERL_MAGIC_ext)))
+		return NULL;
+
+	application = (GnomeVFSMimeApplication *) mg->mg_ptr;
+#else
 	GnomeVFSMimeApplication *application = gperl_alloc_temp (sizeof (GnomeVFSMimeApplication));
 
 	if (object && SvOK (object) && SvROK (object) && SvTYPE (SvRV (object)) == SVt_PVHV) {
@@ -413,6 +422,7 @@
 			}
 		}
 	}
+#endif
 
 	return application;
 }

Modified: trunk/libgnome2-vfs-perl/xs/GnomeVFSMime.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libgnome2-vfs-perl/xs/GnomeVFSMime.xs?rev=28819&op=diff
==============================================================================
--- trunk/libgnome2-vfs-perl/xs/GnomeVFSMime.xs (original)
+++ trunk/libgnome2-vfs-perl/xs/GnomeVFSMime.xs Sun Dec 28 10:24:37 2008
@@ -15,7 +15,7 @@
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
- * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/xs/GnomeVFSMime.xs,v 1.15 2007/07/08 17:49:20 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Gnome2-VFS/xs/GnomeVFSMime.xs,v 1.16 2008/02/24 15:27:19 kaffeetisch Exp $
  */
 
 #include "vfs2perl.h"
@@ -192,8 +192,6 @@
 GnomeVFSMimeApplication *
 gnome_vfs_mime_get_default_application (mime_type)
 	GnomeVFSMimeType *mime_type
-    CLEANUP:
-	gnome_vfs_mime_application_free (RETVAL);
 
 #if VFS_CHECK_VERSION (2, 10, 0)
 
@@ -204,8 +202,6 @@
 	const char *uri
     C_ARGS:
 	uri, mime_type
-    CLEANUP:
-	gnome_vfs_mime_application_free (RETVAL);
 
 #endif
 
@@ -504,14 +500,17 @@
 
 MODULE = Gnome2::VFS::Mime	PACKAGE = Gnome2::VFS::Mime::Application	PREFIX = gnome_vfs_mime_application_
 
+void
+DESTROY (GnomeVFSMimeApplication *application)
+    CODE:
+	gnome_vfs_mime_application_free (application);
+
 ##  GnomeVFSMimeApplication *gnome_vfs_mime_application_new_from_id (const char *id) 
 GnomeVFSMimeApplication *
 gnome_vfs_mime_application_new_from_id (class, id)
 	const char *id
     C_ARGS:
 	id
-    CLEANUP:
-	gnome_vfs_mime_application_free (RETVAL);
 
 #if VFS_CHECK_VERSION (2, 10, 0)
 
@@ -521,14 +520,8 @@
 	const char *id
     C_ARGS:
 	id
-    CLEANUP:
-	gnome_vfs_mime_application_free (RETVAL);
-
-#endif
-
-##  GnomeVFSMimeApplication *gnome_vfs_mime_application_copy (GnomeVFSMimeApplication *application) 
-
-##  void gnome_vfs_mime_application_free (GnomeVFSMimeApplication *application) 
+
+#endif
 
 #if VFS_CHECK_VERSION (2, 4, 0)
 




More information about the Pkg-perl-cvs-commits mailing list