fix DBI connection, RT#39250

[freeside.git] / FS / bin / freeside-dbdef-create

diff --git a/FS/bin/freeside-dbdef-create b/FS/bin/freeside-dbdef-create
index 5063a3c..6c448c7 100755 (executable)
--- a/FS/bin/freeside-dbdef-create
+++ b/FS/bin/freeside-dbdef-create
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
 
 use strict;
 use DBI;
@@ -25,3 +25,23 @@ $dbdef->save($dbdef_file);
 sub usage {
   die "Usage:\n  dbdef-create user\n";
 }
+
+=head1 NAME
+
+freeside-dbdef-create - Recreate database schema cache
+
+=head1 SYNOPSIS
+
+  freeside-dbdef-create user
+
+=head1 DESCRIPTION
+
+Reverse engineers the database schema and recreates the dbdef cache file.
+
+=head1 SEE ALSO
+
+L<DBIx::DBSchema>
+
+=cut
+
+1;