[Bps-public-commit] r18405 - in Shipwright/trunk: lib/Shipwright/Source

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sun Feb 15 03:17:30 2009
New Revision: 18405

Modified:
   Shipwright/trunk/   (props changed)
   Shipwright/trunk/lib/Shipwright/Source/Compressed.pm

Log:
 r19879 at sunnavys-mb:  sunnavy | 2009-02-15 15:50:19 +0800
 added $base_dir info when croak


Modified: Shipwright/trunk/lib/Shipwright/Source/Compressed.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Compressed.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Compressed.pm	Sun Feb 15 03:17:30 2009
@@ -57,7 +57,8 @@
     my $base_dir = $files->[0];
 
     if ( @$files != grep { /^\Q$base_dir\E/ } @$files ) {
-        croak 'only support compressed file which contains only one directory';
+        croak 'only support compressed file which contains only one directory: '
+          . $base_dir;
     }
 
     $base_dir =~ s![/\\]$!!; # trim the last / or \\ if possible