[Rt-commit] r19742 - rt/3.8/trunk/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed May 20 11:05:00 2009
New Revision: 19742

Modified:
   rt/3.8/trunk/lib/RT/Plugin.pm

Log:
* in RT::Plugin->Path don't add trailing slash when requested
  subdir is not defined or empty

Modified: rt/3.8/trunk/lib/RT/Plugin.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Plugin.pm	(original)
+++ rt/3.8/trunk/lib/RT/Plugin.pm	Wed May 20 11:05:00 2009
@@ -95,9 +95,11 @@
 =cut
 
 sub Path {
-    my $self = shift;
-    my $sub  = shift;
-    return $self->_BasePath ."/$sub";
+    my $self   = shift;
+    my $subdir = shift;
+    my $res = $self->_BasePath;
+    $res .= "/$subdir" if defined $subdir && length $subdir;
+    return $res;
 }
 
 sub _BasePath {