[Bps-public-commit] r13325 - in Shipwright/trunk: .

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jun 16 11:10:22 2008
New Revision: 13325

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

Log:
 r13447 at sunnavys-mb:  sunnavy | 2008-06-16 23:08:51 +0800
 tiny fixes


Modified: Shipwright/trunk/lib/Shipwright/Backend.pm
==============================================================================
--- Shipwright/trunk/lib/Shipwright/Backend.pm	(original)
+++ Shipwright/trunk/lib/Shipwright/Backend.pm	Mon Jun 16 11:10:22 2008
@@ -33,6 +33,8 @@
 
     my $module;
 
+    croak 'need repository arg' unless exists $args{repository};
+
     if ( $args{repository} =~ m{^\s*(svk:|//)} ) {
         $args{repository} =~ s{^\s*svk:}{};
         $module = 'Shipwright::Backend::SVK';
@@ -45,7 +47,7 @@
         croak "invalid repository: $args{repository}\n";
     }
 
-    $module->require or die $@;
+    $module->require;
 
     return $module->new(%args);
 }