[perl-xml-cvs] CVS: file-find-rule-xpath/lib/File/Find/Rule XPath.pm,1.2,1.3

[Grant M. <gr...@us...>]

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) {