Hello community,
here is the log from the commit of package perl-Glib
checked in at Wed Apr 9 21:44:39 CEST 2008.
--------
--- perl-Glib/perl-Glib.changes 2008-03-24 16:43:33.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Glib/perl-Glib.changes 2008-04-09 14:06:40.000000000 +0200
@@ -1,0 +2,10 @@
+Wed Apr 9 13:45:33 CEST 2008 - anicka@suse.cz
+
+- update to 1.182
+ * GType.xs: For the 64 bit integer converters: use
+ g_ascii_strtoll, g_ascii_strtoull, and _atoi64 when available.
+ Only use _strtoi64 and _strtoui64 if _MSC_VER >= 1300.
+ * GenPod.pm: Add setters set_copyright, set_year, set_authors, and
+ set_main_mod for the corresponding package variables.
+
+-------------------------------------------------------------------
Old:
----
Glib-1.181.tar.bz2
New:
----
Glib-1.182.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Glib.spec ++++++
--- /var/tmp/diff_new_pack.a19836/_old 2008-04-09 21:43:38.000000000 +0200
+++ /var/tmp/diff_new_pack.a19836/_new 2008-04-09 21:43:38.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Glib (Version 1.181)
+# spec file for package perl-Glib (Version 1.182)
#
# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -13,7 +13,7 @@
Name: perl-Glib
BuildRequires: glib2-devel perl-ExtUtils-Depends perl-ExtUtils-PkgConfig
-Version: 1.181
+Version: 1.182
Release: 1
Requires: perl = %{perl_version}
AutoReqProv: on
@@ -72,6 +72,13 @@
/var/adm/perl-modules/%{name}
%changelog
+* Wed Apr 09 2008 anicka@suse.cz
+- update to 1.182
+ * GType.xs: For the 64 bit integer converters: use
+ g_ascii_strtoll, g_ascii_strtoull, and _atoi64 when available.
+ Only use _strtoi64 and _strtoui64 if _MSC_VER >= 1300.
+ * GenPod.pm: Add setters set_copyright, set_year, set_authors, and
+ set_main_mod for the corresponding package variables.
* Mon Mar 24 2008 anicka@suse.cz
- update to 1.181
* Makefile.PL: Remove the no_index specification from EXTRA_META
++++++ Glib-1.181.tar.bz2 -> Glib-1.182.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/ChangeLog new/Glib-1.182/ChangeLog
--- old/Glib-1.181/ChangeLog 2008-03-15 00:55:06.000000000 +0100
+++ new/Glib-1.182/ChangeLog 2008-03-30 19:25:43.000000000 +0200
@@ -1,3 +1,41 @@
+2008-03-30 Torsten Schoenfeld
+
+ * Glib.pm
+ * Makefile.PL
+ * NEWS
+ * README: Stable release 1.182, requiring ExtUtils::Depends >=
+ 0.300.
+
+2008-03-30 Torsten Schoenfeld
+
+ * GType.xs: For the 64 bit integer converters: use
+ g_ascii_strtoll, g_ascii_strtoull, and _atoi64 when available.
+ Only use _strtoi64 and _strtoui64 if _MSC_VER >= 1300.
+
+ * GenPod.pm: Add setters set_copyright, set_year, set_authors, and
+ set_main_mod for the corresponding package variables.
+
+ * MakeHelper.pm (postamble_docs_full): Use more portable ways to
+ quote commands and strings, partly by using the new functions
+ mentioned above.
+ (postamble_rpms): Don't do anything unless $ENV{GPERL_BUILD_RPMS}
+ is set.
+ (quiet_rule): Use two lines for the prettified commands so that
+ long commands don't get even longer.
+ (do_pod_files): Prettify information message.
+
+ * t/1.t
+ * t/filename.t
+ * t/g.t: Fix failures on MSWin32.
+
+ * ParseXSDoc.pm (clean_out_empty_pods): Stop being chatty.
+
+2008-03-22 Torsten Schoenfeld
+
+ * Makefile.PL: Trap exceptions thrown by EU::PkgConfig->find.
+ When one occurs, exit with status 0 to indicate to CPAN testers
+ that their system isn't supported.
+
2008-03-14 Torsten Schoenfeld
* Glib.pm
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/GenPod.pm new/Glib-1.182/GenPod.pm
--- old/Glib-1.181/GenPod.pm 2007-10-14 20:52:16.000000000 +0200
+++ new/Glib-1.182/GenPod.pm 2008-03-30 18:54:59.000000000 +0200
@@ -942,26 +942,24 @@
=item $string = get_copyright
Returns a string that will/should be placed on each page. You can control
-the text of this string by setting the package variable $COPYRIGHT to
-whatever you like.
+the text of this string by calling the class method I.
-If $COPYRIGHT is not set, we will attempt to create one for you, using the
-values of the variables $YEAR, $AUTHOR, and $MAIN_MOD. $YEAR defaults to
-the current year, $AUTHORS defaults to 'The Gtk2-Perl Team', and $MAIN_MOD
-defaults to empty. You want $MAIN_MOD to be set to the main module of your
-extension for the SEE ALSO section, and on the assumption that a decent
-license notice can be found in that module's doc, we point the reader there.
+If no text has been set, we will attempt to create one for you, using what
+has been passed to I, I, and I. The
+year defaults to the current year, the authors default to
+'The Gtk2-Perl Team', and the main mod is empty by default. You want the
+main mod to be set to the main module of your extension for the SEE ALSO
+section, and on the assumption that a decent license notice can be found in
+that module's doc, we point the reader there.
So, in general, you will want to specify at least one of these, so that you
don't credit your work to us under the LGPL.
-To set $COPYRIGHT, $AUTHORS, and/or $MAIN_MOD do something similar to the
-following in the first part of your postamble section in Makefile.PL. All of
-the weird escaping is required because this is going through several levels of
-variable expansion. All occurences of <br> in $COPYRIGHT are replaced with
-newlines, to make it easier to put in a multi-line string.
+To set them do something similar to the following in the first part of your
+postamble section in Makefile.PL. All occurences of <br> in the copyright
+are replaced with newlines, to make it easier to put in a multi-line string.
- POD_SET=\\\$\$Glib::GenPod::COPYRIGHT='Copyright 1999 team-foobar<br>LGPL';
+ POD_SET=Glib::GenPod::set_copyright(qq{Copyright 1999 team-foobar<br>LGPL});
Glib::MakeHelper::postamble_docs_full() does this sort of thing for you.
@@ -983,6 +981,22 @@
return $str."\n";
}
+sub set_copyright {
+ $COPYRIGHT = shift;
+}
+
+sub set_year {
+ $YEAR = shift;
+}
+
+sub set_authors {
+ $AUTHORS = shift;
+}
+
+sub set_main_mod {
+ $MAIN_MOD = shift;
+}
+
sub preprocess_pod
{
my $pod = shift;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/Glib.pm new/Glib-1.182/Glib.pm
--- old/Glib-1.181/Glib.pm 2008-03-15 00:55:41.000000000 +0100
+++ new/Glib-1.182/Glib.pm 2008-03-30 19:26:01.000000000 +0200
@@ -15,7 +15,7 @@
# 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/Glib/Glib.pm,v 1.119 2008/03/14 23:55:41 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/Glib.pm,v 1.120 2008/03/30 17:26:01 kaffeetisch Exp $
#
package Glib;
@@ -63,7 +63,7 @@
our @EXPORT_OK = map { @$_ } values %EXPORT_TAGS;
$EXPORT_TAGS{all} = \@EXPORT_OK;
-our $VERSION = '1.181';
+our $VERSION = '1.182';
sub dl_load_flags { $^O eq 'darwin' ? 0x00 : 0x01 }
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/GType.xs new/Glib-1.182/GType.xs
--- old/Glib-1.181/GType.xs 2008-02-09 19:45:27.000000000 +0100
+++ new/Glib-1.182/GType.xs 2008-03-30 19:05:26.000000000 +0200
@@ -16,7 +16,7 @@
* 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/Glib/GType.xs,v 1.85 2008/01/17 20:55:51 kaffeetisch Exp $
+ * $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/GType.xs,v 1.86 2008/03/30 17:05:26 kaffeetisch Exp $
*/
=head2 GType / GEnum / GFlags
@@ -694,16 +694,31 @@
# include
#endif
+#if GLIB_CHECK_VERSION (2, 12, 0)
+# define PORTABLE_STRTOLL(str, end, base) g_ascii_strtoll (str, end, base)
+#else
+# ifdef WIN32
+# ifdef _MSC_VER
+# if (_MSC_VER >= 1300)
+# define PORTABLE_STRTOLL(str, end, base) _strtoi64 (str, end, base)
+# else
+# define PORTABLE_STRTOLL(str, end, base) _atoi64 (str)
+# endif
+# else
+# define PORTABLE_STRTOLL(str, end, base) strtol (str, end, base)
+# endif
+# else
+# define PORTABLE_STRTOLL(str, end, base) strtoll (str, end, base)
+# endif
+#endif
+
#ifdef WIN32
# ifdef _MSC_VER
-# define PORTABLE_STRTOLL(str, end, base) _strtoi64 (str, end, base)
-# define PORTABLE_LL_FORMAT "%I64d"
+# define PORTABLE_LL_FORMAT "%I64d"
# else
-# define PORTABLE_STRTOLL(str, end, base) strtol (str, end, base)
# define PORTABLE_LL_FORMAT "%ld"
# endif
#else
-# define PORTABLE_STRTOLL(str, end, base) strtoll (str, end, base)
# define PORTABLE_LL_FORMAT "%lld"
#endif
@@ -750,16 +765,31 @@
=cut
+#if GLIB_CHECK_VERSION (2, 2, 0)
+# define PORTABLE_STRTOULL(str, end, base) g_ascii_strtoull (str, end, base)
+#else
+# ifdef WIN32
+# ifdef _MSC_VER
+# if (_MSC_VER >= 1300)
+# define PORTABLE_STRTOULL(str, end, base) _strtoui64 (str, end, base)
+# else
+# define PORTABLE_STRTOULL(str, end, base) strtoul (str, end, base)
+# endif
+# else
+# define PORTABLE_STRTOULL(str, end, base) strtoul (str, end, base)
+# endif
+# else
+# define PORTABLE_STRTOULL(str, end, base) strtoull (str, end, base)
+# endif
+#endif
+
#ifdef WIN32
# ifdef _MSC_VER
-# define PORTABLE_STRTOULL(str, end, base) _strtoui64 (str, end, base)
# define PORTABLE_ULL_FORMAT "%I64u"
# else
-# define PORTABLE_STRTOULL(str, end, base) strtoul (str, end, base)
# define PORTABLE_ULL_FORMAT "%lu"
# endif
#else
-# define PORTABLE_STRTOULL(str, end, base) strtoull (str, end, base)
# define PORTABLE_ULL_FORMAT "%llu"
#endif
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/Makefile.PL new/Glib-1.182/Makefile.PL
--- old/Glib-1.181/Makefile.PL 2008-03-14 23:05:45.000000000 +0100
+++ new/Glib-1.182/Makefile.PL 2008-03-30 19:26:03.000000000 +0200
@@ -1,5 +1,5 @@
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/Makefile.PL,v 1.74 2008/03/14 22:05:45 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/Makefile.PL,v 1.77 2008/03/30 17:26:03 kaffeetisch Exp $
#
BEGIN { require 5.008; }
@@ -12,7 +12,7 @@
# minimum required version of dependencies we need to build
our %build_reqs = (
- 'perl-ExtUtils-Depends' => '0.200',
+ 'perl-ExtUtils-Depends' => '0.300',
'perl-ExtUtils-PkgConfig' => '1.00',
'Glib' => '2.0.0',
);
@@ -41,6 +41,16 @@
mkdir 'build', 0777;
+# If the package can't be found, warn and exit with status 0 to indicate to
+# CPAN testers that their system is not supported.
+my %glibcfg;
+unless (eval { %glibcfg = ExtUtils::PkgConfig->find ("gobject-2.0 >= $build_reqs{Glib}");
+ 1; })
+{
+ warn $@;
+ exit 0;
+}
+
# this is the order in which we want the api docs from the XS files to
# appear in Glib::xsapi
our @xs_files = qw(
@@ -89,8 +99,6 @@
Glib::MakeHelper->do_pod_files (@xs_files),
);
-my %glibcfg = ExtUtils::PkgConfig->find ('gobject-2.0 >= '.$build_reqs{Glib});
-
# optional thread-safety
my $nothreads;
if($Config::Config{usethreads}) {
@@ -150,9 +158,7 @@
$glib ? $glib->get_makefile_vars : (),
- EXTRA_META => qq/
-$configure_requires
-/,
+ EXTRA_META => $configure_requires,
);
=unstable
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/MakeHelper.pm new/Glib-1.182/MakeHelper.pm
--- old/Glib-1.181/MakeHelper.pm 2008-02-24 18:27:24.000000000 +0100
+++ new/Glib-1.182/MakeHelper.pm 2008-03-30 19:21:39.000000000 +0200
@@ -1,5 +1,5 @@
#
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/MakeHelper.pm,v 1.42 2008/02/24 17:27:24 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/MakeHelper.pm,v 1.44 2008/03/30 17:21:39 kaffeetisch Exp $
#
package Glib::MakeHelper;
@@ -58,7 +58,7 @@
sub do_pod_files
{
return () if (grep /disable[-_]apidoc/i, @ARGV);
- print STDERR "Including ApiDoc pod...\n";
+ print STDERR "Including generated API documentation...\n";
shift; # package name
@@ -259,7 +259,7 @@
=item NAME => extension name
-The name of the extension, used to set $Glib::GenPod::MAIN_MOD (used in the
+The name of the extension, used to set the main mod for Glib::GenPod (used in the
generated see-also listings). May be omitted in favor of the name held
inside the ExtUtils::Depends object. If DEPENDS is also specified, NAME wins.
@@ -356,8 +356,7 @@
if ($copyright) {
# this text has to be escaped for both make and the shell.
$copyright =~ s/\n/\\n/gm; # collapse to one line.
- $copyright =~ s/"/\"/gm; # escape double-quotes
- $copyright = "\$\$Glib::GenPod::COPYRIGHT=\"$copyright\";";
+ $copyright = "Glib::GenPod::set_copyright(qq{$copyright});";
}
# the module name specified explicitly overrides the one in a
@@ -369,7 +368,7 @@
# things in them that need escaping, so let's leave it alone.
# that way, if there's a quoting error, the user will figure
# it out real quick.
- $name = "\$\$Glib::GenPod::MAIN_MOD=\"$name\";";
+ $name = "Glib::GenPod::set_main_mod(qq($name));";
}
#warn "".scalar(@doctypes)." doctype files\n";
@@ -377,7 +376,7 @@
if (@doctypes) {
$add_types = 'add_types ('
- . join(', ', map {'"' . quotemeta ($_) . '"'} @doctypes)
+ . join(', ', map {'qq(' . quotemeta ($_) . ')'} @doctypes)
. '); '
}
@@ -388,7 +387,7 @@
. ' '
. $name
. ' $(POD_SET) '
- . 'xsdoc2pod("build/doc.pl", "$(INST_LIB)", "build/podindex");';
+ . 'xsdoc2pod(q(build/doc.pl), q($(INST_LIB)), q(build/podindex));';
#warn "docgen_code: $docgen_code\n";
@@ -398,7 +397,8 @@
# lib file to be created. the following trick is intended to handle
# both of those cases without causing the other to happen.
-"
+ return <<"__EOM__";
+
BLIB_DONE=build/blib_done_\$(LINKTYPE)
build/blib_done_dynamic :: \$(INST_DYNAMIC)
@@ -416,7 +416,7 @@
build/doc.pl :: Makefile @xs_files
\$(NOECHO) \$(ECHO) Parsing XS files...
\$(NOECHO) $^X -I \$(INST_LIB) -I \$(INST_ARCHLIB) -MGlib::ParseXSDoc \\
- -e 'xsdocparse (qw(@xs_files))' > \$@
+ -e "xsdocparse (qw(@xs_files))" > \$@
# passing all of these files through the single podindex file, which is
# created at the same time, prevents problems with -j4 where xsdoc2pod would
@@ -426,18 +426,18 @@
build/podindex :: \$(BLIB_DONE) Makefile build/doc.pl \$(POD_DEPENDS)
\$(NOECHO) \$(ECHO) Generating POD...
\$(NOECHO) $^X -I \$(INST_LIB) -I \$(INST_ARCHLIB) -MGlib::GenPod -M\$(NAME) \\
- -e '$docgen_code'
+ -e "$docgen_code"
\$(INST_LIB)/\$(FULLEXT)/:
$^X -MExtUtils::Command -e mkpath \$@
\$(INST_LIB)/\$(FULLEXT)/index.pod :: \$(INST_LIB)/\$(FULLEXT)/ build/podindex
\$(NOECHO) \$(ECHO) Creating POD index...
- \$(NOECHO) $^X -e 'print \"\\n=head1 NAME\\n\\n\$(NAME) - API Reference Pod Index\\n\\n=head1 PAGES\\n\\n=over\\n\\n\"' \\
+ \$(NOECHO) $^X -e "print qq(\\n=head1 NAME\\n\\n\$(NAME) - API Reference Pod Index\\n\\n=head1 PAGES\\n\\n=over\\n\\n)" \\
> \$(INST_LIB)/\$(FULLEXT)/index.pod
- \$(NOECHO) $^X -nae 'print \"=item L<\$\$F[1]>\\n\\n\";' < build/podindex >> \$(INST_LIB)/\$(FULLEXT)/index.pod
- \$(NOECHO) $^X -e 'print \"=back\\n\\n\";' >> \$(INST_LIB)/\$(FULLEXT)/index.pod
-"
+ \$(NOECHO) $^X -nae "print qq(=item L<\$\$F[1]>\\n\\n);" < build/podindex >> \$(INST_LIB)/\$(FULLEXT)/index.pod
+ \$(NOECHO) $^X -e "print qq(=back\\n\\n);" >> \$(INST_LIB)/\$(FULLEXT)/index.pod
+__EOM__
}
=item string = Glib::MakeHelper->postamble_rpms (HASH)
@@ -467,7 +467,7 @@
{
shift; # package name
- return '' if $^O eq 'MSWin32';
+ return '' unless $ENV{GPERL_BUILD_RPMS};
my @dirs = qw{$(RPMS_DIR) $(RPMS_DIR)/BUILD $(RPMS_DIR)/RPMS
$(RPMS_DIR)/SOURCES $(RPMS_DIR)/SPECS $(RPMS_DIR)/SRPMS};
@@ -544,13 +544,13 @@
if (/NOECHO/) {
# already quiet
} elsif (/XSUBPP/) {
- s/^\t/\t\$(NOECHO) \$(ECHO) [ XS \$< ] && /;
+ s/^\t/\t\$(NOECHO) \$(ECHO) [ XS \$< ]\n\t\$(NOECHO) /;
} elsif (/CCCMD/) {
- s/^\t/\t\$(NOECHO) \$(ECHO) [ CC \$< ] && /;
+ s/^\t/\t\$(NOECHO) \$(ECHO) [ CC \$< ]\n\t\$(NOECHO) /;
} elsif (/\bLD\b/) {
- s/^\t/\t\$(NOECHO) \$(ECHO) [ LD \$@ ] && /;
+ s/^\t/\t\$(NOECHO) \$(ECHO) [ LD \$@ ]\n\t\$(NOECHO) /;
} elsif (/[_\b]AR\b/) {
- s/^\t/\t\$(NOECHO) \$(ECHO) [ AR \$@ ] && /;
+ s/^\t/\t\$(NOECHO) \$(ECHO) [ AR \$@ ]\n\t\$(NOECHO) /;
}
}
return join "\n", @lines;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/META.yml new/Glib-1.182/META.yml
--- old/Glib-1.181/META.yml 2008-03-15 00:58:09.000000000 +0100
+++ new/Glib-1.182/META.yml 2008-03-30 19:28:16.000000000 +0200
@@ -1,18 +1,17 @@
--- #YAML:1.0
name: Glib
-version: 1.181
+version: 1.182
abstract: Perl wrappers for the GLib utility and Object libraries
license: ~
author: ~
generated_by: ExtUtils::MakeMaker version 6.44
distribution_type: module
requires:
- ExtUtils::Depends: 0.200
+ ExtUtils::Depends: 0.300
ExtUtils::PkgConfig: 1.00
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.3.html
version: 1.3
-
configure_requires:
- ExtUtils::Depends: 0.200
+ ExtUtils::Depends: 0.300
ExtUtils::PkgConfig: 1.00
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/NEWS new/Glib-1.182/NEWS
--- old/Glib-1.181/NEWS 2008-03-15 00:53:54.000000000 +0100
+++ new/Glib-1.182/NEWS 2008-03-30 19:23:39.000000000 +0200
@@ -1,3 +1,8 @@
+Overview of changes in Glib 1.182
+=================================
+
+* Fix build and test suite issues, especially on MSWin32 and cygwin.
+
Overview of changes in Glib 1.181
=================================
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/ParseXSDoc.pm new/Glib-1.182/ParseXSDoc.pm
--- old/Glib-1.181/ParseXSDoc.pm 2007-12-22 19:53:40.000000000 +0100
+++ new/Glib-1.182/ParseXSDoc.pm 2008-03-30 19:16:11.000000000 +0200
@@ -831,7 +831,7 @@
? ()
: $_->{symname} }
@{$pod->{xsubs}})));
- print STDERR "Deleting $_ from doc.pl's \$data\n";
+ #print STDERR "Deleting $_ from doc.pl's \$data\n";
delete $data->{$_};
}
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/README new/Glib-1.182/README
--- old/Glib-1.181/README 2008-03-15 00:55:42.000000000 +0100
+++ new/Glib-1.182/README 2008-03-30 19:26:05.000000000 +0200
@@ -1,4 +1,4 @@
-Glib version 1.181
+Glib version 1.182
==================
This module provides perl access to Glib and GLib's GObject libraries.
@@ -71,7 +71,7 @@
You'll also need the following modules in order to build the Glib module
from source:
- ExtUtils::Depends >= 0.200
+ ExtUtils::Depends >= 0.300
ExtUtils::PkgConfig >= 1.00
@@ -102,4 +102,4 @@
with this library; if not, write to the Free Software Foundation, Inc., 59
Temple Place - Suite 330, Boston, MA 02111-1307 USA.
-# $Id: README,v 1.82 2008/03/14 23:55:42 kaffeetisch Exp $
+# $Id: README,v 1.83 2008/03/30 17:26:05 kaffeetisch Exp $
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/t/1.t new/Glib-1.182/t/1.t
--- old/Glib-1.181/t/1.t 2008-01-17 21:45:33.000000000 +0100
+++ new/Glib-1.182/t/1.t 2008-03-30 19:11:27.000000000 +0200
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/t/1.t,v 1.15 2007/09/15 14:10:13 kaffeetisch Exp $
+# $Header: /cvsroot/gtk2-perl/gtk2-perl-xs/Glib/t/1.t,v 1.16 2008/03/30 17:11:27 kaffeetisch Exp $
#
# Basic test for Glib fundamentals. make sure that the smoke does't get out,
# and test most of the procedural things in Glib's toplevel namespace.
@@ -30,10 +30,6 @@
is (Glib::MINOR_VERSION, $version[1], 'MINOR_VERSION');
is (Glib::MICRO_VERSION, $version[2], 'MICRO_VERSION');
-print "user name: ".Glib::get_user_name."\n";
-print "real name: ".Glib::get_real_name."\n";
-print "home dir: ".Glib::get_home_dir."\n";
-print "tmp dir: ".Glib::get_tmp_dir."\n";
ok (defined (Glib::get_user_name), "Glib::get_user_name");
ok (defined (Glib::get_real_name), "Glib::get_real_name");
ok (defined (Glib::get_home_dir), "Glib::get_home_dir");
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/t/filename.t new/Glib-1.182/t/filename.t
--- old/Glib-1.181/t/filename.t 2008-01-17 21:49:00.000000000 +0100
+++ new/Glib-1.182/t/filename.t 2008-03-30 18:54:59.000000000 +0200
@@ -36,9 +36,9 @@
like(filename_from_uri($uri), $expected);
my @info;
-is(scalar (@info = Glib->filename_from_uri($uri)), 2);
-is(scalar (@info = Glib::filename_from_uri($uri)), 2);
-is(scalar (@info = filename_from_uri($uri)), 2);
+ok(!!(@info = Glib->filename_from_uri($uri)));
+ok(!!(@info = Glib::filename_from_uri($uri)));
+ok(!!(@info = filename_from_uri($uri)));
SKIP: {
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Glib-1.181/t/g.t new/Glib-1.182/t/g.t
--- old/Glib-1.181/t/g.t 2007-09-15 15:53:19.000000000 +0200
+++ new/Glib-1.182/t/g.t 2008-03-30 18:54:59.000000000 +0200
@@ -152,7 +152,7 @@
[ 'keep-comments' ],
cwd(), '/tmp');
ok ($success);
- is ($path, File::Spec->catfile(cwd(), $file));
+ is (File::Spec->canonpath($path), File::Spec->catfile(cwd(), $file));
is ($key_file->get_comment(undef, undef), "top of the file\n", 'we reached the top again');
unlink $file;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org