[Bps-public-commit] r9814 - bpsbuilder/BPB/lib/BPB/Backend

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Dec  4 11:36:22 2007
New Revision: 9814

Modified:
   bpsbuilder/BPB/lib/BPB/Backend/SVK.pm

Log:
tiny change to make warnings shut up

Modified: bpsbuilder/BPB/lib/BPB/Backend/SVK.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Backend/SVK.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Backend/SVK.pm	Tue Dec  4 11:36:22 2007
@@ -265,7 +265,9 @@
 
 sub _absolute_path {
     my $self     = shift;
-    my $category = $self->path->{ shift @_ };
+    my $category = shift;
+    $category = $self->path->{ $category } if $category;
+
     my @paths    = grep { $_ } $category, @_;    # trim null paths
     return join '/', $self->repository, $self->project, @paths;
 }