Skip to content

Commit 5069e57

Browse files
committed
Update Filter::Util::Call to CPAN version 1.58
[DELTA] 1.58 2017-11-15 rurban ---- * Drop 5.005 support * Switch from DynaLoader to XSLoader [atoomic #5] * Replace use vars by our. [atoomic #5] * Lazy load Carp only when required. [atoomic #5] * Minor test improvements * Fix v5.8 cast warnings
1 parent 8bdc12c commit 5069e57

File tree

4 files changed

+197
-153
lines changed

4 files changed

+197
-153
lines changed

Porting/Maintainers.pl

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -524,7 +524,7 @@ package Maintainers;
524524
},
525525

526526
'Filter::Util::Call' => {
527-
'DISTRIBUTION' => 'RURBAN/Filter-1.57.tar.gz',
527+
'DISTRIBUTION' => 'RURBAN/Filter-1.58.tar.gz',
528528
'FILES' => q[cpan/Filter-Util-Call
529529
pod/perlfilter.pod
530530
],

cpan/Filter-Util-Call/Call.pm

Lines changed: 12 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -9,18 +9,17 @@
99

1010
package Filter::Util::Call ;
1111

12-
require 5.005 ;
13-
require DynaLoader;
12+
require 5.006 ; # our
1413
require Exporter;
15-
use Carp ;
14+
15+
use XSLoader ();
1616
use strict;
1717
use warnings;
18-
use vars qw($VERSION $XS_VERSION @ISA @EXPORT) ;
1918

20-
@ISA = qw(Exporter DynaLoader);
21-
@EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
22-
$VERSION = "1.57" ;
23-
$XS_VERSION = $VERSION;
19+
our @ISA = qw(Exporter);
20+
our @EXPORT = qw( filter_add filter_del filter_read filter_read_exact) ;
21+
our $VERSION = "1.58" ;
22+
our $XS_VERSION = $VERSION;
2423
$VERSION = eval $VERSION;
2524

2625
sub filter_read_exact($)
@@ -29,8 +28,10 @@ sub filter_read_exact($)
2928
my ($left) = $size ;
3029
my ($status) ;
3130

32-
croak ("filter_read_exact: size parameter must be > 0")
33-
unless $size > 0 ;
31+
unless ( $size > 0 ) {
32+
require Carp;
33+
Carp::croak("filter_read_exact: size parameter must be > 0");
34+
}
3435

3536
# try to read a block which is exactly $size bytes long
3637
while ($left and ($status = filter_read($left)) > 0) {
@@ -59,7 +60,7 @@ sub filter_add($)
5960
Filter::Util::Call::real_import($obj, (caller)[0], $coderef) ;
6061
}
6162

62-
bootstrap Filter::Util::Call ;
63+
XSLoader::load('Filter::Util::Call');
6364

6465
1;
6566
__END__

cpan/Filter-Util-Call/Call.xs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
*
44
* Author : Paul Marquess
55
* Date : 2014-12-09 02:48:44 rurban
6-
* Version : 1.57
6+
* Version : 1.58
77
*
88
* Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
99
* Copyright (c) 2011-2014 Reini Urban. All rights reserved.

0 commit comments

Comments
 (0)