File tree Expand file tree Collapse file tree 4 files changed +197
-153
lines changed Expand file tree Collapse file tree 4 files changed +197
-153
lines changed Original file line number Diff line number Diff line change @@ -524,7 +524,7 @@ package Maintainers;
524
524
},
525
525
526
526
' Filter::Util::Call' => {
527
- ' DISTRIBUTION' => ' RURBAN/Filter-1.57 .tar.gz' ,
527
+ ' DISTRIBUTION' => ' RURBAN/Filter-1.58 .tar.gz' ,
528
528
' FILES' => q[ cpan/Filter-Util-Call
529
529
pod/perlfilter.pod
530
530
] ,
Original file line number Diff line number Diff line change 9
9
10
10
package Filter::Util::Call ;
11
11
12
- require 5.005 ;
13
- require DynaLoader;
12
+ require 5.006 ; # our
14
13
require Exporter;
15
- use Carp ;
14
+
15
+ use XSLoader ();
16
16
use strict;
17
17
use warnings;
18
- use vars qw( $VERSION $XS_VERSION @ISA @EXPORT) ;
19
18
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 ;
24
23
$VERSION = eval $VERSION ;
25
24
26
25
sub filter_read_exact ($)
@@ -29,8 +28,10 @@ sub filter_read_exact($)
29
28
my ($left ) = $size ;
30
29
my ($status ) ;
31
30
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
+ }
34
35
35
36
# try to read a block which is exactly $size bytes long
36
37
while ($left and ($status = filter_read($left )) > 0) {
@@ -59,7 +60,7 @@ sub filter_add($)
59
60
Filter::Util::Call::real_import($obj , (caller )[0], $coderef ) ;
60
61
}
61
62
62
- bootstrap Filter::Util::Call ;
63
+ XSLoader::load( ' Filter::Util::Call' ) ;
63
64
64
65
1;
65
66
__END__
Original file line number Diff line number Diff line change 3
3
*
4
4
* Author : Paul Marquess
5
5
* Date : 2014-12-09 02:48:44 rurban
6
- * Version : 1.57
6
+ * Version : 1.58
7
7
*
8
8
* Copyright (c) 1995-2011 Paul Marquess. All rights reserved.
9
9
* Copyright (c) 2011-2014 Reini Urban. All rights reserved.
You can’t perform that action at this time.
0 commit comments