Hello community,
here is the log from the commit of package perl-Filter
checked in at Tue Jul 10 19:07:32 CEST 2007.
--------
--- perl-Filter/perl-Filter.changes 2007-03-07 10:58:38.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-Filter/perl-Filter.changes 2007-07-09 13:12:15.000000000 +0200
@@ -1,0 +2,7 @@
+Mon Jul 9 12:00:31 CEST 2007 - anicka@suse.cz
+
+- update to 1.34
+ * support perl 5.10 for Filter::Util::Call
+ * equivalent changes for the other filters
+
+-------------------------------------------------------------------
Old:
----
Filter-1.33-Call.diff
Filter-1.33.diff
Filter-1.33.tar.bz2
New:
----
Filter-1.34-Call.diff
Filter-1.34.diff
Filter-1.34.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Filter.spec ++++++
--- /var/tmp/diff_new_pack.ot7523/_old 2007-07-10 19:07:16.000000000 +0200
+++ /var/tmp/diff_new_pack.ot7523/_new 2007-07-10 19:07:16.000000000 +0200
@@ -1,5 +1,5 @@
#
-# spec file for package perl-Filter (Version 1.33)
+# spec file for package perl-Filter (Version 1.34)
#
# Copyright (c) 2007 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine
@@ -11,7 +11,7 @@
# norootforbuild
Name: perl-Filter
-Version: 1.33
+Version: 1.34
Release: 1
Requires: perl = %{perl_version}
Autoreqprov: on
@@ -73,6 +73,10 @@
/var/adm/perl-modules/%{name}
%changelog
+* Mon Jul 09 2007 - anicka@suse.cz
+- update to 1.34
+ * support perl 5.10 for Filter::Util::Call
+ * equivalent changes for the other filters
* Wed Mar 07 2007 - anicka@suse.cz
- update to 1.33
* fixed ninstr issue for 5.8.9
++++++ Filter-1.33-Call.diff -> Filter-1.34-Call.diff ++++++
++++++ Filter-1.33-Call.diff -> Filter-1.34.diff ++++++
--- perl-Filter/Filter-1.33-Call.diff 2003-07-15 18:17:44.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-Filter/Filter-1.34.diff 2003-07-15 18:17:44.000000000 +0200
@@ -1,10 +1,16 @@
---- Makefile.PL
-+++ Makefile.PL
-@@ -12,7 +12,6 @@
- use strict;
+--- decrypt/decr
++++ decrypt/decr
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
- my @files = qw( filter-util.pl
-- Call/Call.pm
- Exec/Exec.pm
- decrypt/decrypt.pm decrypt/decr decrypt/encrypt
- tee/tee.pm
+ # This script will decrypt a Perl script that has been encrypted using the
+ # "encrypt" script. It cannot decrypt any other kind of encrypted Perl script.
+--- examples/filtdef
++++ examples/filtdef
+@@ -1,4 +1,4 @@
+-#!/usr/local/bin/perl
++#!/usr/bin/perl
+
+ use strict ;
+ use warnings ;
++++++ Filter-1.33.tar.bz2 -> Filter-1.34.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/Call/Call.pm new/Filter-1.34/Call/Call.pm
--- old/Filter-1.33/Call/Call.pm 2007-03-03 16:59:25.000000000 +0100
+++ new/Filter-1.34/Call/Call.pm 2007-07-07 20:52:21.000000000 +0200
@@ -18,7 +18,7 @@
@ISA = qw(Exporter DynaLoader);
@EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-$VERSION = "1.06" ;
+$VERSION = "1.07" ;
sub filter_read_exact($)
{
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/Call/Call.xs new/Filter-1.34/Call/Call.xs
--- old/Filter-1.33/Call/Call.xs 2007-03-03 16:59:25.000000000 +0100
+++ new/Filter-1.34/Call/Call.xs 2007-07-07 20:45:23.000000000 +0200
@@ -25,6 +25,9 @@
#define FILTER_ACTIVE(s) IoLINES(s)
#define BUF_OFFSET(sv) IoPAGE_LEN(sv)
#define CODE_REF(sv) IoPAGE(sv)
+#ifndef PERL_FILTER_EXISTS
+# define PERL_FILTER_EXISTS(i) (PL_rsfp_filters && (i) <= av_len(PL_rsfp_filters))
+#endif
#define SET_LEN(sv,len) \
do { SvPVX(sv)[len] = '\0'; SvCUR_set(sv, len); } while (0)
@@ -235,7 +238,7 @@
filter_del()
CODE:
dMY_CXT;
- if (PL_rsfp_filters && IDX <= av_len(PL_rsfp_filters) && FILTER_DATA(IDX) && FILTER_ACTIVE(FILTER_DATA(IDX)))
+ if (PERL_FILTER_EXISTS(IDX) && FILTER_DATA(IDX) && FILTER_ACTIVE(FILTER_DATA(IDX)))
FILTER_ACTIVE(FILTER_DATA(IDX)) = FALSE ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/Changes new/Filter-1.34/Changes
--- old/Filter-1.33/Changes 2007-03-02 00:03:59.000000000 +0100
+++ new/Filter-1.34/Changes 2007-07-07 20:51:24.000000000 +0200
@@ -280,3 +280,13 @@
* fixed ninstr issue for 5.8.9
* added t/pod.t
+
+1.34 7 July 2007
+----
+
+ * Included Core patch #31200 - change to support perl 5.10 for
+ Filter::Util::Call
+
+ * Also included the equivalent changes for the other filters. Patch
+ kindly provided by Steve Hay.
+
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/decrypt/decrypt.pm new/Filter-1.34/decrypt/decrypt.pm
--- old/Filter-1.33/decrypt/decrypt.pm 2007-03-03 16:59:25.000000000 +0100
+++ new/Filter-1.34/decrypt/decrypt.pm 2007-07-07 20:52:21.000000000 +0200
@@ -6,7 +6,7 @@
use warnings;
use vars qw(@ISA $VERSION);
@ISA = qw(DynaLoader);
-$VERSION = "1.04" ;
+$VERSION = "1.05" ;
bootstrap Filter::decrypt ;
1;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/decrypt/decrypt.xs new/Filter-1.34/decrypt/decrypt.xs
--- old/Filter-1.33/decrypt/decrypt.xs 2007-03-03 16:59:25.000000000 +0100
+++ new/Filter-1.34/decrypt/decrypt.xs 2007-07-07 20:45:23.000000000 +0200
@@ -32,6 +32,14 @@
/* Internal defines */
+#ifdef PERL_FILTER_EXISTS
+# define CORE_FILTER_COUNT \
+ (PL_parser && PL_parser->rsfp_filters ? av_len(PL_parser->rsfp_filters) : 0)
+#else
+# define CORE_FILTER_COUNT \
+ (PL_rsfp_filters ? av_len(PL_rsfp_filters) : 0)
+#endif
+
#define FILTER_COUNT(s) IoPAGE(s)
#define FILTER_LINE_NO(s) IoLINES(s)
#define FIRST_TIME(s) IoLINES_LEFT(s)
@@ -139,7 +147,7 @@
/* Mild paranoia mode - make sure that no extra filters have */
/* been applied on the same line as the use Filter::decrypt */
- if (AvFILL(PL_rsfp_filters) > FILTER_COUNT(my_sv) )
+ if (CORE_FILTER_COUNT > FILTER_COUNT(my_sv) )
croak("too many filters") ;
/* As this is the first time through, so deal with any */
@@ -301,7 +309,7 @@
/* remember how many filters are enabled */
- FILTER_COUNT(sv) = AvFILL(PL_rsfp_filters) ;
+ FILTER_COUNT(sv) = CORE_FILTER_COUNT ;
/* and the line number */
FILTER_LINE_NO(sv) = PL_curcop->cop_line ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/Exec/Exec.pm new/Filter-1.34/Exec/Exec.pm
--- old/Filter-1.33/Exec/Exec.pm 2007-03-03 16:59:25.000000000 +0100
+++ new/Filter-1.34/Exec/Exec.pm 2007-07-07 20:52:21.000000000 +0200
@@ -6,7 +6,7 @@
use warnings;
use vars qw(@ISA $VERSION) ;
@ISA = qw(DynaLoader);
-$VERSION = "1.02" ;
+$VERSION = "1.03" ;
bootstrap Filter::Util::Exec ;
1 ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/Exec/Exec.xs new/Filter-1.34/Exec/Exec.xs
--- old/Filter-1.33/Exec/Exec.xs 2007-03-03 16:59:25.000000000 +0100
+++ new/Filter-1.34/Exec/Exec.xs 2007-07-07 20:45:23.000000000 +0200
@@ -34,6 +34,13 @@
#define pipe_pid (MY_CXT.x_pipe_pid)
#endif
+#ifdef PERL_FILTER_EXISTS
+# define CORE_FILTER_SCRIPT PL_parser->rsfp
+#else
+# define CORE_FILTER_SCRIPT PL_rsfp
+#endif
+
+
#define PIPE_IN(sv) IoLINES(sv)
#define PIPE_OUT(sv) IoPAGE(sv)
#define PIPE_PID(sv) IoLINES_LEFT(sv)
@@ -603,7 +610,7 @@
}
command[i-1] = NULL ;
filter_add(filter_exec, sv);
- pid = spawnCommand(PL_rsfp, command[0], command, &pipe_in, &pipe_out) ;
+ pid = spawnCommand(CORE_FILTER_SCRIPT, command[0], command, &pipe_in, &pipe_out) ;
safefree((char*)command) ;
PIPE_PID(sv) = pid ;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/Makefile.PL new/Filter-1.34/Makefile.PL
--- old/Filter-1.33/Makefile.PL 2007-03-01 23:31:40.000000000 +0100
+++ new/Filter-1.34/Makefile.PL 2007-07-07 11:11:33.000000000 +0200
@@ -50,7 +50,7 @@
WriteMakefile(
NAME => 'Filter',
- VERSION => '1.33',
+ VERSION => '1.34',
'linkext' => {LINKTYPE => ''},
'dist' => {COMPRESS=>'gzip', SUFFIX=>'gz',
DIST_DEFAULT => 'MyDoubleCheck tardist'},
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/Filter-1.33/META.yml new/Filter-1.34/META.yml
--- old/Filter-1.33/META.yml 2007-03-03 17:00:17.000000000 +0100
+++ new/Filter-1.34/META.yml 2007-07-07 20:52:25.000000000 +0200
@@ -1,10 +1,13 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
-name: Filter
-version: 1.33
-version_from:
-installdirs: site
-requires:
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30_01
+--- #YAML:1.0
+name: Filter
+version: 1.34
+abstract: Source Filters
+license: perl
+generated_by: ExtUtils::MakeMaker version 6.36
+distribution_type: module
+requires:
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.2.html
+ version: 1.2
+author:
+ - Paul Marquess