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

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Sat Jun 21 03:07:10 2008
New Revision: 13531

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

Log:
 r13617 at sunnavys-mb:  sunnavy | 2008-06-21 06:26:57 +0800
 typo fix


Modified: Shipwright/trunk/lib/Shipwright/Source/Base.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Source/Base.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Source/Base.pm	Sat Jun 21 03:07:10 2008
@@ -382,7 +382,7 @@
 
 =cut
 
-sub _is_compressed {
+sub is_compressed {
     my $self = shift;
     return 1 if $self->source =~ m{.*/.+\.(tar.(gz|bz2)|tgz)$};
     return;