Mailinglist Archive: opensuse-commit (1138 mails)
| < Previous | Next > |
commit perl-Params-Validate
- From: root@xxxxxxxxxxxxxxx (h_root)
- Date: Fri, 26 Jan 2007 01:06:26 +0100
- Message-id: <20070126000626.79319678181@xxxxxxxxxxxxxxx>
Hello community,
here is the log from the commit of package perl-Params-Validate
checked in at Fri Jan 26 01:06:26 CET 2007.
--------
--- perl-Params-Validate/perl-Params-Validate.changes 2006-10-05 12:26:18.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Params-Validate/perl-Params-Validate.changes 2007-01-25 20:47:15.000000000 +0100
@@ -1,0 +2,10 @@
+Thu Jan 25 18:24:00 CET 2007 - anicka@xxxxxxx
+
+- update to 0.87
+ * When determining the caller of a function in the XS version, use
+ Perl's caller() function rather than CopSTASHPV. The caller()
+ function apparently ignores the DB package, whereas the latter
+ doesn't. This caused validate_options to be ignored when running
+ under profiling (and probably the debugger as well).
+
+-------------------------------------------------------------------
Old:
----
Params-Validate-0.86.tar.bz2
New:
----
Params-Validate-0.87.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Params-Validate.spec ++++++
--- /var/tmp/diff_new_pack.u29496/_old 2007-01-26 01:05:14.000000000 +0100
+++ /var/tmp/diff_new_pack.u29496/_new 2007-01-26 01:05:14.000000000 +0100
@@ -1,7 +1,7 @@
#
-# spec file for package perl-Params-Validate (Version 0.86)
+# spec file for package perl-Params-Validate (Version 0.87)
#
-# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
# package are under the same license as the package itself.
#
@@ -12,12 +12,12 @@
Name: perl-Params-Validate
URL: http://cpan.org/modules/by-module/Params/
-License: GPL
+License: GNU General Public License (GPL)
Group: Development/Libraries/Perl
Requires: perl = %{perl_version}
#Conflicts: perlmod
Autoreqprov: on
-Version: 0.86
+Version: 0.87
Release: 1
Source: Params-Validate-%{version}.tar.bz2
Summary: provides a system for validation method/function call parameters
@@ -66,6 +66,13 @@
%{_mandir}/man3/*.3pm.gz
%changelog -n perl-Params-Validate
+* Thu Jan 25 2007 - anicka@xxxxxxx
+- update to 0.87
+ * When determining the caller of a function in the XS version, use
+ Perl's caller() function rather than CopSTASHPV. The caller()
+ function apparently ignores the DB package, whereas the latter
+ doesn't. This caused validate_options to be ignored when running
+ under profiling (and probably the debugger as well).
* Thu Oct 05 2006 - anicka@xxxxxxx
- update to 0.86
* Only turn inlining on if __GNUC__ is defined
++++++ Params-Validate-0.86.tar.bz2 -> Params-Validate-0.87.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Params-Validate-0.86/Changes new/Params-Validate-0.87/Changes
--- old/Params-Validate-0.86/Changes 2006-08-09 08:13:07.000000000 +0200
+++ new/Params-Validate-0.87/Changes 2007-01-18 16:48:18.000000000 +0100
@@ -1,3 +1,13 @@
+0.87 January 18, 2007
+
+- When determining the caller of a function in the XS version, use
+ Perl's caller() function rather than CopSTASHPV. The caller()
+ function apparently ignores the DB package, whereas the latter
+ doesn't. This caused validate_options to be ignored when running
+ under profiling (and probably the debugger as well). Thanks to Jeff
+ Weisberg for pointing this out.
+
+
0.86 August 9, 2006
* I cannot get this module to compile with Perl 5.00504 any more. I
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Params-Validate-0.86/lib/Params/Validate.pm new/Params-Validate-0.87/lib/Params/Validate.pm
--- old/Params-Validate-0.86/lib/Params/Validate.pm 2006-08-09 06:58:05.000000000 +0200
+++ new/Params-Validate-0.87/lib/Params/Validate.pm 2007-01-18 02:27:04.000000000 +0100
@@ -16,7 +16,7 @@
@ISA = 'Exporter';
- $VERSION = '0.86';
+ $VERSION = '0.87';
my %tags =
( types =>
@@ -702,19 +702,13 @@
=head1 SUPPORT
-For now, support questions should be sent to Dave at autarch@xxxxxxxxx
+Please submit bugs and patches to the CPAN RT system at
+http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Params%3A%3AValidate or
+via email at bug-params-validate@xxxxxxxxxxxx
-The code repository is at https://svn.urth.org/svn/Params-Validate/
-
-=head1 SEE ALSO
+Support questions can be sent to Dave at autarch@xxxxxxxxx
-Getargs::Long - similar capabilities with a different interface. If
-you like what Params::Validate does but not its 'feel' try this one
-instead.
-
-Carp::Assert and Class::Contract - other modules in the general spirit
-of validating that certain things are true before/while/after
-executing actual program code.
+The code repository is at https://svn.urth.org/svn/Params-Validate/
=head1 AUTHORS
@@ -722,8 +716,8 @@
=head1 COPYRIGHT
-Copyright (c) 2004 David Rolsky. All rights reserved. This program
-is free software; you can redistribute it and/or modify it under the
-same terms as Perl itself.
+Copyright (c) 2004-2006 David Rolsky. All rights reserved. This
+program is free software; you can redistribute it and/or modify it
+under the same terms as Perl itself.
=cut
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Params-Validate-0.86/META.yml new/Params-Validate-0.87/META.yml
--- old/Params-Validate-0.86/META.yml 2006-08-09 08:14:27.000000000 +0200
+++ new/Params-Validate-0.87/META.yml 2007-01-18 16:48:48.000000000 +0100
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: Params-Validate
-version: 0.86
+version: 0.87
version_from: lib/Params/Validate.pm
installdirs: site
requires:
@@ -10,4 +10,4 @@
Test::More: 0
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+generated_by: ExtUtils::MakeMaker version 6.30_01
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Params-Validate-0.86/Validate.xs new/Params-Validate-0.87/Validate.xs
--- old/Params-Validate-0.86/Validate.xs 2006-08-09 08:05:07.000000000 +0200
+++ new/Params-Validate-0.87/Validate.xs 2007-01-18 02:24:59.000000000 +0100
@@ -753,17 +753,26 @@
HV* ret;
SV** temp;
char* pkg;
+#if (PERL_VERSION != 6)
+ SV* buffer;
+ SV* caller;
+#endif
ret = (HV*) sv_2mortal((SV*) newHV());
#if (PERL_VERSION == 6)
pkg = SvPV_nolen(get_sv("Params::Validate::CALLER", 0));
#else
- /* gets caller's package name */
- pkg = CopSTASHPV(PL_curcop);
- if (pkg == Nullch) {
+ buffer = sv_2mortal(newSVpv("(caller(0))[0]", 0));
+ SvTAINTED_off(buffer);
+
+ caller = eval_pv(SvPV_nolen(buffer), 1);
+ if (SvTYPE(caller) == SVt_NULL) {
pkg = "main";
}
+ else {
+ pkg = SvPV_nolen(caller);
+ }
#endif
/* get package specific options */
OPTIONS = get_hv("Params::Validate::OPTIONS", 1);
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx
| < Previous | Next > |