diff options
author | jeff <jeff> | 2010-09-08 21:33:44 +0000 |
---|---|---|
committer | jeff <jeff> | 2010-09-08 21:33:44 +0000 |
commit | 532f8a5a544cb61b84828ca5a1b9043ca962dc6a (patch) | |
tree | b5f87c2b19732b9f79b6d9e36caa4a69a09d03e0 /bin/generate-table-module | |
parent | 12acbe5a4071314fe87b949ffac478f132f5d305 (diff) |
restore black magic
Diffstat (limited to 'bin/generate-table-module')
-rwxr-xr-x | bin/generate-table-module | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/bin/generate-table-module b/bin/generate-table-module index 16a23e5b7..e7fc99258 100755 --- a/bin/generate-table-module +++ b/bin/generate-table-module @@ -1,7 +1,11 @@ #!/usr/bin/perl +use strict; +use vars qw( $opt_n ); use FS::Schema qw( dbdef_dist ); +use Getopt::Std; +getopts('n'); my $table = shift; ### @@ -69,12 +73,9 @@ close DEST; # add to FS/FS/Mason.pm ### -# it needs to be: -# 1. disablable (have an option to turn it off) -# 2. documented in the schema change docs -# -#my $magic = '# Sammath Naur'; -#system("perl -pi -e 's/$magic/use FS::$table;\n $magic/' FS/FS/Mason.pm"); +my $magic = '# Sammath Naur'; +system("perl -pi -e 's/$magic/use FS::$table;\n $magic/' FS/FS/Mason.pm") + unless $opt_n; ### # add FS/t/table.t |