From: Grant M. <gr...@us...> - 2002-02-07 22:47:59
|
Update of /cvsroot/perl-xml/xml-simple In directory usw-pr-cvs1:/tmp/cvs-serv10996 Modified Files: Tag: Release-1_06-maint Simple.pm Log Message: Maintenance branch based on 1.06 release - changed version to 1.08 - integrated change to searchpath option Index: Simple.pm =================================================================== RCS file: /cvsroot/perl-xml/xml-simple/Simple.pm,v retrieving revision 1.1.1.1 retrieving revision 1.1.1.1.2.1 diff -u -d -r1.1.1.1 -r1.1.1.1.2.1 --- Simple.pm 2 Dec 2001 15:51:18 -0000 1.1.1.1 +++ Simple.pm 7 Feb 2002 22:47:55 -0000 1.1.1.1.2.1 @@ -42,7 +42,7 @@ @ISA = qw(Exporter); @EXPORT = qw(XMLin XMLout); -$VERSION = '1.06'; +$VERSION = '1.08'; my %CacheScheme = ( storable => [ \&StorableSave, \&StorableRestore ], @@ -645,6 +645,15 @@ my $fullpath = File::Spec->catfile($path, $file); return($fullpath) if(-e $fullpath); } + } + + # If user did not supply a search path, default to current directory + + if(!@search_path) { + if(-e $file) { + return($file); + } + croak "File does not exist: $file"; } croak "Could not find $file in ", join(':', @search_path); |