This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Update Filter-Util-Call to CPAN version 1.49
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 1 Jun 2013 20:58:02 +0000 (21:58 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Sat, 1 Jun 2013 20:58:02 +0000 (21:58 +0100)
  [DELTA]

1.46 2013-03-29 rurban
----

  * Fix RT #84292 PIPE_PID/waitpid broken in Exec pipe_read since 5.17.6 (rurban)

  * Fix RT #84210 Bad NAME in Makefile.PL (miyagawa)

  * Fix RT #82687 cpansign MANIFEST failure (myra)

  * Work on RT #41285 test failures with non-english locale (reported by srezic)

  * Skip patching the src for newWarnings style, these are the default (rurban)

  * Fix RT #53132 examples/method/Decompress.pm syntax error (kevin ryde)
    and add usage docs.

1.47 2013-03-31 rurban
----

  * Reproduced and fixed RT #41285 test failures with non-english locale
    (reported by srezic)

1.48 2013-04-01 rurban
----

  * added META records, such as repository, recommends to Makefile.PL

  * added META and POD tests

1.49 2013-04-02 rurban
----

  * Better fix for RT #41285 test failures with non-english locale
    (patched by srezic, pull #1)

  * Add t/z_*.t meta tests (now for real), move Try to t/FilterTry,
    add POD to Filter::Util::Call, Filter::Util::Exec and generated
    FilterTry.

Porting/Maintainers.pl
cpan/Filter-Util-Call/Call.pm
cpan/Filter-Util-Call/Call.xs
cpan/Filter-Util-Call/t/call.t

index aba4245..32b0690 100755 (executable)
@@ -845,7 +845,7 @@ use File::Glob qw(:case);
 
     'Filter::Util::Call' => {
         'MAINTAINER'   => 'pmqs',
-        'DISTRIBUTION' => 'RURBAN/Filter-1.45.tar.gz',
+        'DISTRIBUTION' => 'RURBAN/Filter-1.49.tar.gz',
         'FILES'        => q[cpan/Filter-Util-Call
                  pod/perlfilter.pod
                 ],
index 46a7b32..fb379b0 100644 (file)
@@ -18,7 +18,7 @@ use vars qw($VERSION @ISA @EXPORT) ;
 
 @ISA = qw(Exporter DynaLoader);
 @EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
-$VERSION = "1.45" ;
+$VERSION = "1.49" ;
 
 sub filter_read_exact($)
 {
@@ -182,7 +182,7 @@ will result in the C<@_> array having the following values:
 Before terminating, the C<import> function must explicitly install the
 filter by calling C<filter_add>.
 
-B<filter_add()>
+=head2 B<filter_add()>
 
 The function, C<filter_add>, actually installs the filter. It takes one
 parameter which should be a reference. The kind of reference used will
@@ -287,6 +287,11 @@ to call filter any more.
 
 See L<Example 4: Using filter_del> for details.
 
+=item I<real_import>
+
+Internal function which adds the filter, based on the L<filter_add>
+argument type.
+
 =back
 
 =head1 EXAMPLES
index a6a8262..22163eb 100644 (file)
@@ -2,8 +2,8 @@
  * Filename : Call.xs
  * 
  * Author   : Paul Marquess 
- * Date     : 24th April 2011
- * Version  : 1.43
+ * Date     : 2013-03-29 09:04:42 rurban
+ * Version  : 1.49
  *
  *    Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
  *       This program is free software; you can redistribute it and/or
@@ -59,7 +59,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
     int n;
 
     if (fdebug)
-       warn("**** In filter_call - maxlen = %d, out len buf = %d idx = %d my_sv = %d [%s]\n", 
+       warn("**** In filter_call - maxlen = %d, out len buf = %" IVdf " idx = %d my_sv = %" IVdf " [%s]\n",
                maxlen, SvCUR(buf_sv), idx, SvCUR(my_sv), SvPVX(my_sv) ) ;
 
     while (1) {
@@ -96,7 +96,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
                    BUF_OFFSET(my_sv) += (p - out_ptr + 1);
                    SvCUR_set(my_sv, n) ;
                    if (fdebug)
-                       warn("recycle %d - leaving %d, returning %d [%s]", 
+                       warn("recycle %d - leaving %d, returning %" IVdf " [%s]",
                                idx, n, SvCUR(buf_sv), SvPVX(buf_sv)) ;
 
                    return SvCUR(buf_sv);
@@ -152,7 +152,7 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
            n = POPi ;
 
            if (fdebug)
-               warn("status = %d, length op buf = %d [%s]\n",
+               warn("status = %d, length op buf = %" IVdf " [%s]\n",
                     n, SvCUR(DEFSV), SvPVX(DEFSV) ) ;
            if (SvCUR(DEFSV))
                sv_setpvn(my_sv, SvPVX(DEFSV), SvCUR(DEFSV)) ; 
@@ -171,8 +171,8 @@ filter_call(pTHX_ int idx, SV *buf_sv, int maxlen)
            /* Either EOF or an error */
 
            if (fdebug) 
-               warn ("filter_read %d returned %d , returning %d\n", idx, n,
-                   (SvCUR(buf_sv)>0) ? SvCUR(buf_sv) : n);
+               warn ("filter_read %d returned %d , returning %" IVdf "\n", idx, n,
+                     (SvCUR(buf_sv)>0) ? SvCUR(buf_sv) : (STRLEN)n);
 
            /* PERL_MODULE(my_sv) ; */
            /* PERL_OBJECT(my_sv) ; */
@@ -255,10 +255,13 @@ unimport(package="$Package", ...)
 BOOT:
   {
     MY_CXT_INIT;
+#ifdef FDEBUG
+    fdebug = 1;
+#else
     fdebug = 0;
+#endif
     /* temporary hack to control debugging in toke.c */
     if (fdebug)
         filter_add(NULL, (fdebug) ? (SV*)"1" : (SV*)"0");  
   }
 
-
index b01a143..2fc897b 100644 (file)
@@ -54,7 +54,7 @@ EOM
  
 my $a = `$Perl "-I." $Inc -e "use ${module} ;"  $redir` ;
 ok(1, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'MacOS' || $^O eq 'NetWare' || $^O eq 'mpeix') && $? != 0))) ;
-ok(2, $a =~ /^Can't locate object method "filter" via package "MyTest"/) ;
+ok(2, $a =~ /^Can't locate object method "filter" via package "MyTest"/m) ;
  
 # no reference parameter in filter_add
 ######################################
@@ -72,7 +72,7 @@ EOM
 $a = `$Perl "-I." $Inc -e "use ${module} ;"  $redir` ;
 ok(3, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'MacOS' || $^O eq 'NetWare' || $^O eq 'mpeix') && $? != 0))) ;
 #ok(4, $a =~ /^usage: filter_add\(ref\) at ${module}.pm/) ;
-ok(4, $a =~ /^Not enough arguments for Filter::Util::Call::filter_add/) ;
+ok(4, $a =~ /^Not enough arguments for Filter::Util::Call::filter_add/m) ;