From: Arthur Axel 'fREW' Schmidt <frioux@gmail.com>
Date: Sat, 8 May 2010 18:22:03 +0000 (-0500)
Subject: fix dep, fix doc
X-Git-Tag: v0.001000_09~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d0b0f2bd537805cbb09311fb23804d37b481de7;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git

fix dep, fix doc
---

diff --git a/dist.ini b/dist.ini
index 215a5bd..5138a66 100644
--- a/dist.ini
+++ b/dist.ini
@@ -19,6 +19,7 @@ remove = MetaYAML
 [Prereq]
 autodie                     = 0
 File::Path                  = 2.08
+File::Touch                 = 0.08
 DBIx::Class                 = 0.08121
 Moose                       = 1.0
 Method::Signatures::Simple  = 0.05
diff --git a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
index 7adfa61..7d5f622 100644
--- a/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
+++ b/lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm
@@ -553,8 +553,8 @@ generic enough to run on all databases.  Good luck with that one.
 
 =head1 PERL SCRIPTS
 
-A perl script for this tool is very simple.  It merely needs to contain a
-sub called C<run> that takes a L<DBIx::Class::Schema> as it's only argument.
+A perl script for this tool is very simple.  It merely needs to contain an
+anonymous sub that takes a L<DBIx::Class::Schema> as it's only argument.
 A very basic perl script might look like:
 
  #!perl
@@ -562,7 +562,7 @@ A very basic perl script might look like:
  use strict;
  use warnings;
 
- sub run {
+ sub {
    my $schema = shift;
 
    $schema->resultset('Users')->create({