Update of /cvsroot/perl-xml/file-find-rule-xpath/lib/File/Find/Rule
In directory sc8-pr-cvs1:/tmp/cvs-serv31641/lib/File/Find/Rule
Modified Files:
XPath.pm
Log Message:
- fixed an incompatibility with recent versions of File::Spec (reported by Jim Cromie)
Index: XPath.pm
===================================================================
RCS file: /cvsroot/perl-xml/file-find-rule-xpath/lib/File/Find/Rule/XPath.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- XPath.pm 18 Dec 2002 09:27:58 -0000 1.2
+++ XPath.pm 10 Nov 2003 08:30:33 -0000 1.3
@@ -6,10 +6,11 @@
use Carp;
use File::Find::Rule;
use File::Spec;
+use Cwd ();
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '0.02';
+$VERSION = '0.03';
@ISA = qw(File::Find::Rule);
@EXPORT = @File::Find::Rule::EXPORT;
@@ -29,7 +30,7 @@
croak 'Can\'t locate XML::LibXML or XML::XPath in @INC';
}
- my $cwd = File::Spec->cwd();
+ my $cwd = Cwd::cwd();
if($use_libxml) {
|
