User:      docelic
Date:      2008-04-10 17:52:14 GMT
Modified:  dist/lib/UI Primitive.pm
Log:
* Make sure the path to search using File::Find::find() in
  UI::Primitive::list_images() has a trailing '/'.

	This allows it to operate properly on values of $base which are
	symlinks without subdirectories (such as "images/*").

	code:products::image
	type:imagehelper
	outboard:images/items/*  <- this works as you'd expect
	outboard:images/*  <- this didn't work till now

Revision  Changes    Path
2.27                 interchange/dist/lib/UI/Primitive.pm


rev 2.27, prev_rev 2.26
Index: Primitive.pm
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/Primitive.pm,v
retrieving revision 2.26
retrieving revision 2.27
diff -u -r2.26 -r2.27
--- Primitive.pm	9 Aug 2007 13:40:52 -0000	2.26
+++ Primitive.pm	10 Apr 2008 17:52:14 -0000	2.27
@@ -1,6 +1,6 @@
 # UI::Primitive - Interchange configuration manager primitives
 
-# $Id: Primitive.pm,v 2.26 2007-08-09 13:40:52 pajamian Exp $
+# $Id: Primitive.pm,v 2.27 2008-04-10 17:52:14 docelic Exp $
 
 # Copyright (C) 2002-2007 Interchange Development Group
 # Copyright (C) 1998-2002 Red Hat, Inc.
@@ -27,7 +27,7 @@
 
 package UI::Primitive;
 
-$VERSION = substr(q$Revision: 2.26 $, 10);
+$VERSION = substr(q$Revision: 2.27 $, 10);
 
 $DEBUG = 0;
 
@@ -426,7 +426,7 @@
 					$n =~ s:^$base/?::;
 					push(@names, $n);
 				};
-	find($wanted, $base);
+	find($wanted, $base . '/');
 	return sort @names;
 }
 





