Update Filter-Util-Call to CPAN version 1.49

  [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.

3 files changed, 20 insertions, 12 deletions

diff --git a/cpan/Filter-Util-Call/Call.pm b/cpan/Filter-Util-Call/Call.pm
index 46a7b32dfd..fb379b019c 100644
--- a/cpan/Filter-Util-Call/Call.pm
+++ b/cpan/Filter-Util-Call/Call.pm
@@ -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
diff --git a/cpan/Filter-Util-Call/Call.xs b/cpan/Filter-Util-Call/Call.xs
index a6a82627be..22163eb9f2 100644
--- a/cpan/Filter-Util-Call/Call.xs
+++ b/cpan/Filter-Util-Call/Call.xs
@@ -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");  
   }
 
-
diff --git a/cpan/Filter-Util-Call/t/call.t b/cpan/Filter-Util-Call/t/call.t
index b01a14328a..2fc897b202 100644
--- a/cpan/Filter-Util-Call/t/call.t
+++ b/cpan/Filter-Util-Call/t/call.t
@@ -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) ;