gnome-perl-introspection r23 - trunk/Glib-Object-Introspection

[tsch svn gnome org]

Author: tsch
Date: Sun Nov  2 21:06:38 2008
New Revision: 23
URL: http://svn.gnome.org/viewvc/gnome-perl-introspection?rev=23&view=rev

Log:
Change G::O::I::setup to use G::O::I::Repository::require.  No need to find and
load the shared object anymore.  No need for custom wrapper objects anymore,
either.


Modified:
   trunk/Glib-Object-Introspection/Introspection.pm

Modified: trunk/Glib-Object-Introspection/Introspection.pm
==============================================================================
--- trunk/Glib-Object-Introspection/Introspection.pm	(original)
+++ trunk/Glib-Object-Introspection/Introspection.pm	Sun Nov  2 21:06:38 2008
@@ -26,30 +26,13 @@
 our $PACKAGE;
 
 sub setup {
-  my ($self, $library, $wrapper_library, $basename, $package) = @_;
+  my ($self, $basename, $version, $package) = @_;
 
   $BASENAME = $basename;
   $PACKAGE = $package;
   $REPOSITORY = Glib::Object::Introspection::Repository -> get_default();
 
-  # Load the library
-  {
-  my $so = DynaLoader::dl_findfile($library);
-  croak "Couldn't locate $library in the linker path" unless defined $so;
-
-  my $lib = DynaLoader::dl_load_file($so, 0x01);
-  croak "Couldn't load $so" unless defined $lib;
-  }
-
-  # Load the wrapper library
-  {
-  my $so = DynaLoader::dl_findfile($wrapper_library);
-  croak "Couldn't locate $wrapper_library in the linker path" unless defined $so;
-
-  my $lib = DynaLoader::dl_load_file($so, 0x01);
-  croak "Couldn't load $so" unless defined $lib;
-  }
-
+  $REPOSITORY -> require($basename, $version, []);
   $REPOSITORY -> register_types($basename => $package);
 }