X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdbicdump;h=c1d14f590c9183534c87a113cc21348089ad9a15;hb=7d0ea6b94e009f9d2a325f968a067357fb0b820c;hp=94ec849f244c5da42f78369a3b90550bd01797d9;hpb=ff746964a437e42a7edfd99ec68d366442822c9d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

diff --git a/script/dbicdump b/script/dbicdump
old mode 100755
new mode 100644
index 94ec849..c1d14f5
--- a/script/dbicdump
+++ b/script/dbicdump
@@ -39,6 +39,9 @@ under the same terms as Perl itself.
 use strict;
 use warnings;
 use Getopt::Long;
+
+use Pod::Usage;
+
 use DBIx::Class::Schema::Loader qw/ make_schema_at /;
 require DBIx::Class::Schema::Loader::Base;
 
@@ -47,7 +50,8 @@ my $loader_options;
 GetOptions( 'loader-option|o=s%' => \&handle_option );
 $loader_options->{dump_directory} ||= '.';
 
-my ($schema_class, @loader_connect_info) = @ARGV;
+my ($schema_class, @loader_connect_info) = @ARGV
+    or pod2usage(1);
 
 sub handle_option {
     my ($self, $key, $value) = @_;