[perl-xml-cvs] CVS: xml-simple Simple.pm,1.1.1.1,1.1.1.1.2.1

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

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