[perl-Glib-Object-Introspection] Add Glib::Object::Introspection->CHECK_VERSION

[Torsten SchÃnfeld <tsch src gnome org>]

commit a3bda3bed089687188f8501b223ae8863c81c67e
Author: Torsten SchÃnfeld <kaffeetisch gmx de>
Date:   Wed Jan 30 17:27:21 2013 +0100

    Add Glib::Object::Introspection->CHECK_VERSION

 GObjectIntrospection.xs |    7 +++++++
 t/inc/setup.pl          |    3 ++-
 2 files changed, 9 insertions(+), 1 deletions(-)
---
diff --git a/GObjectIntrospection.xs b/GObjectIntrospection.xs
index dcd9555..7d907a9 100644
--- a/GObjectIntrospection.xs
+++ b/GObjectIntrospection.xs
@@ -296,6 +296,13 @@ static void call_carp_carp (const char *msg);
 
 MODULE = Glib::Object::Introspection	PACKAGE = Glib::Object::Introspection
 
+gboolean
+CHECK_VERSION (class, gint major, gint minor, gint micro)
+    CODE:
+	RETVAL = GI_CHECK_VERSION (major, minor, micro);
+    OUTPUT:
+	RETVAL
+
 void
 _load_library (class, namespace, version, search_path=NULL)
 	const gchar *namespace
diff --git a/t/inc/setup.pl b/t/inc/setup.pl
index f1e22ca..3612776 100644
--- a/t/inc/setup.pl
+++ b/t/inc/setup.pl
@@ -43,7 +43,8 @@ sub delta_ok ($$;$) {
 
 sub check_gi_version {
   my ($x, $y, $z) = @_;
-  return !system ('pkg-config', "--atleast-version=$x.$y.$z", 'gobject-introspection-1.0');
+  #return !system ('pkg-config', "--atleast-version=$x.$y.$z", 'gobject-introspection-1.0');
+  return Glib::Object::Introspection->CHECK_VERSION ($x, $y, $z);
 }
 
 1;