[Bps-public-commit] r10187 - bpsbuilder/BPB/lib/BPB/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Dec 30 04:04:49 2007
New Revision: 10187

Modified:
   bpsbuilder/BPB/lib/BPB/Source/Base.pm

Log:
bug fix, we need to remove version number if we just want the name

Modified: bpsbuilder/BPB/lib/BPB/Source/Base.pm
==============================================================================
--- bpsbuilder/BPB/lib/BPB/Source/Base.pm	(original)
+++ bpsbuilder/BPB/lib/BPB/Source/Base.pm	Sun Dec 30 04:04:49 2007
@@ -100,6 +100,9 @@
 
             opendir my $dir, $self->directory;
             my @sources = readdir $dir;
+
+            # remove version number
+            @sources = map { s/-\d[.\w]+$//; $_ } @sources;
             close $dir;
 
             my $name;