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;
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 ] ,
Original file line number Diff line number Diff line change 99
1010package Filter::Util::Call ;
1111
12- require 5.005 ;
13- require DynaLoader;
12+ require 5.006 ; # our
1413require Exporter;
15- use Carp ;
14+
15+ use XSLoader ();
1616use strict;
1717use 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
2625sub 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
64651;
6566__END__
Original file line number Diff line number Diff line change 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.
You can’t perform that action at this time.
0 commit comments