Hello community,

here is the log from the commit of package perl-Gtk2 for openSUSE:Factory 
checked in at 2013-10-06 14:31:16
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Gtk2 (Old)
 and      /work/SRC/openSUSE:Factory/.perl-Gtk2.new (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Package is "perl-Gtk2"

Changes:
--------
--- /work/SRC/openSUSE:Factory/perl-Gtk2/perl-Gtk2.changes      2013-07-08 
22:25:08.000000000 +0200
+++ /work/SRC/openSUSE:Factory/.perl-Gtk2.new/perl-Gtk2.changes 2013-10-06 
14:31:17.000000000 +0200
@@ -1,0 +2,8 @@
+Fri Oct  4 09:12:17 UTC 2013 - [email protected]
+
+- updated to 1.248
+ * Avoid misusing the macro PL_na, thus preventing issues when Gtk2 is used in
+   conjunction with certain XS modules, among them XML::Parser and
+   String::Approx.
+
+-------------------------------------------------------------------

Old:
----
  Gtk2-1.247.tar.gz

New:
----
  Gtk2-1.248.tar.gz

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-Gtk2.spec ++++++
--- /var/tmp/diff_new_pack.zaaKsG/_old  2013-10-06 14:31:18.000000000 +0200
+++ /var/tmp/diff_new_pack.zaaKsG/_new  2013-10-06 14:31:18.000000000 +0200
@@ -17,7 +17,7 @@
 
 
 Name:           perl-Gtk2
-Version:        1.247
+Version:        1.248
 Release:        0
 %define cpan_name Gtk2
 Summary:        Perl interface to the 2
@@ -34,13 +34,13 @@
 BuildRequires:  perl(Cairo) >= 1.000
 BuildRequires:  perl(ExtUtils::Depends) >= 0.300
 BuildRequires:  perl(ExtUtils::PkgConfig) >= 1.03
-BuildRequires:  perl(Glib) >= 1.220
+BuildRequires:  perl(Glib) >= 1.228
 BuildRequires:  perl(Pango) >= 1.220
 BuildRequires:  pkgconfig(gtk+-2.0)
 Requires:       perl(Cairo) >= 1.000
 Requires:       perl(ExtUtils::Depends) >= 0.300
 Requires:       perl(ExtUtils::PkgConfig) >= 1.03
-Requires:       perl(Glib) >= 1.220
+Requires:       perl(Glib) >= 1.280
 Requires:       perl(Pango) >= 1.220
 BuildRoot:      %{_tmppath}/%{name}-%{version}-build
 %{perl_requires}

++++++ Gtk2-1.247.tar.gz -> Gtk2-1.248.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/MANIFEST new/Gtk2-1.248/MANIFEST
--- old/Gtk2-1.247/MANIFEST     2013-02-04 07:17:51.000000000 +0100
+++ new/Gtk2-1.248/MANIFEST     2013-09-30 00:10:58.000000000 +0200
@@ -123,6 +123,7 @@
 t/00.Gtk2.t
 t/01.GtkWindow.t
 t/02.GtkContainer.t
+t/constants.t
 t/Gdk.t
 t/GdkCairo.t
 t/GdkColor.t
@@ -331,6 +332,7 @@
 t/GtkVScrollbar.t
 t/GtkVSeparator.t
 t/GtkWidget.t
+t/options.t
 t/pango-compat.t
 t/PangoAttributes.t
 t/PangoCairo.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/META.json new/Gtk2-1.248/META.json
--- old/Gtk2-1.247/META.json    2013-02-04 07:17:51.000000000 +0100
+++ new/Gtk2-1.248/META.json    2013-09-30 00:10:58.000000000 +0200
@@ -4,7 +4,7 @@
       "gtk2-perl Team <gtk-perl-list at gnome dot org>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter 
version 2.112621",
+   "generated_by" : "ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter 
version 2.131560",
    "license" : [
       "lgpl_2_1"
    ],
@@ -26,6 +26,11 @@
       ]
    },
    "prereqs" : {
+      "build" : {
+         "requires" : {
+            "ExtUtils::MakeMaker" : "0"
+         }
+      },
       "configure" : {
          "requires" : {
             "Cairo" : "1.000",
@@ -34,6 +39,15 @@
             "Glib" : "1.280",
             "Pango" : "1.220"
          }
+      },
+      "runtime" : {
+         "requires" : {
+            "Cairo" : "1.000",
+            "ExtUtils::Depends" : "0.300",
+            "ExtUtils::PkgConfig" : "1.030",
+            "Glib" : "1.280",
+            "Pango" : "1.220"
+         }
       }
    },
    "release_status" : "stable",
@@ -53,5 +67,5 @@
       },
       "x_MailingList" : "https://mail.gnome.org/mailman/listinfo/gtk-perl-list";
    },
-   "version" : "1.247"
+   "version" : "1.248"
 }
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/META.yml new/Gtk2-1.248/META.yml
--- old/Gtk2-1.247/META.yml     2013-02-04 07:17:51.000000000 +0100
+++ new/Gtk2-1.248/META.yml     2013-09-30 00:10:58.000000000 +0200
@@ -2,7 +2,8 @@
 abstract: 'Perl interface to the 2.x series of the Gimp Toolkit library'
 author:
   - 'gtk2-perl Team <gtk-perl-list at gnome dot org>'
-build_requires: {}
+build_requires:
+  ExtUtils::MakeMaker: 0
 configure_requires:
   Cairo: 1.000
   ExtUtils::Depends: 0.300
@@ -10,7 +11,7 @@
   Glib: 1.280
   Pango: 1.220
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.64, CPAN::Meta::Converter version 
2.112621'
+generated_by: 'ExtUtils::MakeMaker version 6.68, CPAN::Meta::Converter version 
2.131560'
 license: lgpl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -25,10 +26,16 @@
   file:
     - Makefile.PL
     - gtk-demo/main.pl
+requires:
+  Cairo: 1.000
+  ExtUtils::Depends: 0.300
+  ExtUtils::PkgConfig: 1.030
+  Glib: 1.280
+  Pango: 1.220
 resources:
+  MailingList: https://mail.gnome.org/mailman/listinfo/gtk-perl-list
   bugtracker: http://rt.cpan.org/Public/Dist/Display.html?Name=Gtk2
   homepage: http://gtk2-perl.sourceforge.net
   license: http://www.gnu.org/licenses/lgpl-2.1.html
   repository: git://git.gnome.org/perl-Gtk2
-  x_MailingList: https://mail.gnome.org/mailman/listinfo/gtk-perl-list
-version: 1.247
+version: 1.248
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/NEWS new/Gtk2-1.248/NEWS
--- old/Gtk2-1.247/NEWS 2013-02-04 07:10:57.000000000 +0100
+++ new/Gtk2-1.248/NEWS 2013-09-30 00:08:14.000000000 +0200
@@ -1,3 +1,10 @@
+Overview of changes in Gtk2 1.248
+=================================
+
+* Avoid misusing the macro PL_na, thus preventing issues when Gtk2 is used in
+  conjunction with certain XS modules, among them XML::Parser and
+  String::Approx.
+
 Overview of changes in Gtk2 1.247
 =================================
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/lib/Gtk2/CodeGen.pm 
new/Gtk2-1.248/lib/Gtk2/CodeGen.pm
--- old/Gtk2-1.247/lib/Gtk2/CodeGen.pm  2011-11-24 08:28:17.000000000 +0100
+++ new/Gtk2-1.248/lib/Gtk2/CodeGen.pm  2013-09-29 23:47:22.000000000 +0200
@@ -292,7 +292,7 @@
 that is to be used to convert the constant to a Perl scalar.  If
 CONSTANT_CONVERTER is a simple string like 'newSViv' it will be used as follows
 to get a Perl scalar: CONSTANT_CONVERTER (CONSTANT_NAME).  If it contains
-'$var', as in 'newSVpv ($var, PL_na)', then '$var' will be replaced with
+'$var', as in 'newSVpv ($var, 0)', then '$var' will be replaced with
 CONSTANT_NAME and the resulting string will be used for conversion.
 
 The default for CONSTANT_CONVERTER is 'newSViv'.
@@ -364,7 +364,7 @@
 
         $boot_code .= <<"__EOD__";
        newCONSTSUB (stash, "$constant", $conversion);
-       av_push (constants_av, newSVpv ("$constant", PL_na));
+       av_push (constants_av, newSVpv ("$constant", 0));
 __EOD__
     }
 
@@ -417,8 +417,8 @@
 
 =head1 COPYRIGHT
 
-Copyright (C) 2003-2005 by the gtk2-perl team (see the file AUTHORS for the
-full list)
+Copyright (C) 2003-2005, 2013 by the gtk2-perl team (see the file AUTHORS for
+the full list)
 
 This library is free software; you can redistribute it and/or modify it under
 the terms of the GNU Library General Public License as published by the Free
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/lib/Gtk2.pm new/Gtk2-1.248/lib/Gtk2.pm
--- old/Gtk2-1.247/lib/Gtk2.pm  2013-02-04 07:17:34.000000000 +0100
+++ new/Gtk2-1.248/lib/Gtk2.pm  2013-09-30 00:08:53.000000000 +0200
@@ -1,5 +1,5 @@
 #
-# Copyright (C) 2003-2012 by the gtk2-perl team (see the file AUTHORS for
+# Copyright (C) 2003-2013 by the gtk2-perl team (see the file AUTHORS for
 # the full list)
 #
 # This library is free software; you can redistribute it and/or modify it under
@@ -73,7 +73,7 @@
 use Exporter;
 require DynaLoader;
 
-our $VERSION = '1.247';
+our $VERSION = '1.248';
 
 our @ISA = qw(DynaLoader Exporter);
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/t/constants.t new/Gtk2-1.248/t/constants.t
--- old/Gtk2-1.247/t/constants.t        1970-01-01 01:00:00.000000000 +0100
+++ new/Gtk2-1.248/t/constants.t        2013-02-02 20:31:58.000000000 +0100
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Gtk2 qw/:constants/;
+use Gtk2::TestHelper tests => 8, noinit => 1;
+
+my @constants = qw/GDK_CURRENT_TIME
+                   GDK_PRIORITY_EVENTS
+                   GDK_PRIORITY_REDRAW
+                   GTK_PRIORITY_RESIZE/;
+my $number = qr/^\d+$/;
+foreach my $constant (@constants) {
+  like (eval "Gtk2::$constant", $number);
+  like (eval "$constant", $number);
+}
+
+__END__
+
+Copyright (C) 2003-2013 by the gtk2-perl team (see the file AUTHORS for the
+full list).  See LICENSE for more information.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/t/options.t new/Gtk2-1.248/t/options.t
--- old/Gtk2-1.247/t/options.t  1970-01-01 01:00:00.000000000 +0100
+++ new/Gtk2-1.248/t/options.t  2013-02-02 20:31:58.000000000 +0100
@@ -0,0 +1,47 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use Gtk2::TestHelper tests => 4, noinit => 1;
+
+SKIP:
+{
+  @ARGV = qw(--help --name gtk2perl --urgs tree);
+
+  skip 'Gtk2->init_check failed, probably unable to open DISPLAY', 1
+    unless (Gtk2->init_check);
+
+  is_deeply (\@ARGV, [qw(--help --urgs tree)]);
+}
+
+SKIP: {
+  skip "parse_args is new in 2.4.5", 1
+    unless Gtk2->CHECK_VERSION (2, 4, 5);
+
+  # we can't do much more than just calling it, since it always
+  # immediately returns if init() was called already.
+  ok (Gtk2->parse_args);
+}
+
+SKIP: {
+  skip 'new 2.6 stuff', 1
+    unless Gtk2->CHECK_VERSION(2, 6, 0);
+
+  my $foos = 1;
+  my $options = [
+    [ 'foos', 'f', 'int', \$foos ],
+  ];
+
+  my $context = Glib::OptionContext->new ('- urgsify your life');
+  $context->add_main_entries ($options, 'C');
+  $context->add_group (Gtk2->get_option_group (0));
+
+  @ARGV = qw(--name Foo --foos 23);
+  $context->parse ();
+  is (@ARGV, 0);
+  is ($foos, 23);
+}
+
+__END__
+
+Copyright (C) 2003-2013 by the gtk2-perl team (see the file AUTHORS for the
+full list).  See LICENSE for more information.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/xs/GdkProperty.xs 
new/Gtk2-1.248/xs/GdkProperty.xs
--- old/Gtk2-1.247/xs/GdkProperty.xs    2011-11-24 08:28:17.000000000 +0100
+++ new/Gtk2-1.248/xs/GdkProperty.xs    2013-09-30 00:02:37.000000000 +0200
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2003 by the gtk2-perl team (see the file AUTHORS)
+ * Copyright (c) 2003, 2013 by the gtk2-perl team (see the file AUTHORS)
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Library General Public
@@ -38,7 +38,7 @@
        EXTEND (sp, elements);          \
                                        \
        for (i = 0; i < elements; i++)  \
-               PUSHs (sv_2mortal (newSVpv (list[i], PL_na)));
+               PUSHs (sv_2mortal (newSVpv (list[i], 0)));
 
 /* ------------------------------------------------------------------------- */
 
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/xs/GtkFileFilter.xs 
new/Gtk2-1.248/xs/GtkFileFilter.xs
--- old/Gtk2-1.247/xs/GtkFileFilter.xs  2011-11-24 08:28:17.000000000 +0100
+++ new/Gtk2-1.248/xs/GtkFileFilter.xs  2013-09-30 00:02:59.000000000 +0200
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2003 by the gtk2-perl team (see the file AUTHORS)
+ * Copyright (c) 2003, 2013 by the gtk2-perl team (see the file AUTHORS)
  *
  * Licensed under the LGPL, see LICENSE file for more information.
  *
@@ -38,7 +38,7 @@
                                    gperl_sv_from_filename (info->filename));
        if (info->uri)
                gperl_hv_take_sv_s (hv, "uri",
-                                   newSVpv (info->uri, PL_na));
+                                   newSVpv (info->uri, 0));
        if (info->display_name)
                gperl_hv_take_sv_s (hv, "display_name",
                                    newSVGChar (info->display_name));
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/xs/GtkRecentFilter.xs 
new/Gtk2-1.248/xs/GtkRecentFilter.xs
--- old/Gtk2-1.247/xs/GtkRecentFilter.xs        2011-11-24 08:28:17.000000000 
+0100
+++ new/Gtk2-1.248/xs/GtkRecentFilter.xs        2013-09-30 00:03:41.000000000 
+0200
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2006 by the gtk2-perl team (see the file AUTHORS)
+ * Copyright (c) 2006, 2013 by the gtk2-perl team (see the file AUTHORS)
  *
  * Licensed under the LGPL, see LICENSE file for more information.
  *
@@ -40,7 +40,7 @@
                       newSVGtkRecentFilterFlags (info->contains));
 
   if (info->uri)
-    gperl_hv_take_sv_s (hv, "uri", newSVpv (info->uri, PL_na));
+    gperl_hv_take_sv_s (hv, "uri", newSVpv (info->uri, 0));
 
   if (info->display_name)
     gperl_hv_take_sv_s (hv, "display_name", newSVGChar (info->display_name));
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' 
'--exclude=.svnignore' old/Gtk2-1.247/xs/GtkTooltips.xs 
new/Gtk2-1.248/xs/GtkTooltips.xs
--- old/Gtk2-1.247/xs/GtkTooltips.xs    2011-11-24 08:28:17.000000000 +0100
+++ new/Gtk2-1.248/xs/GtkTooltips.xs    2013-09-30 00:04:00.000000000 +0200
@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2003 by the gtk2-perl team (see the file AUTHORS)
+ * Copyright (c) 2003, 2013 by the gtk2-perl team (see the file AUTHORS)
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Library General Public
@@ -92,9 +92,9 @@
        if (ret->widget)
                gperl_hv_take_sv_s(hv, "widget", 
newSVGtkWidget(GTK_WIDGET(ret->widget)));
        if (ret->tip_text)
-               gperl_hv_take_sv_s(hv, "tip_text", newSVpv(ret->tip_text, 
PL_na));
+               gperl_hv_take_sv_s(hv, "tip_text", newSVpv(ret->tip_text, 0));
        if (ret->tip_private)
-               gperl_hv_take_sv_s(hv, "tip_private", newSVpv(ret->tip_private, 
PL_na));
+               gperl_hv_take_sv_s(hv, "tip_private", newSVpv(ret->tip_private, 
0));
 
        XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));
 

-- 
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Reply via email to