diff options
author | ivan <ivan> | 2001-09-04 11:15:58 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-09-04 11:15:58 +0000 |
commit | feafaf45ee709ef15b6cf7892abf89e4878c627b (patch) | |
tree | 54b98a4cbdaed102e95f8d7a66089bd59c896cc4 /bin | |
parent | 895e5dd0c472e41875435cc625f1ca0a36bd2524 (diff) |
rar
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/fs-setup | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/bin/fs-setup b/bin/fs-setup index 1c720e698..5dc666a1e 100755 --- a/bin/fs-setup +++ b/bin/fs-setup @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: fs-setup,v 1.52 2001-09-04 11:15:15 ivan Exp $ +# $Id: fs-setup,v 1.53 2001-09-04 11:15:58 ivan Exp $ #to delay loading dbdef until we're ready BEGIN { $FS::Record::setup_hack = 1; } @@ -79,7 +79,6 @@ my(%tables)=&tables_hash_hack; #turn it into objects my($dbdef) = new DBIx::DBSchema ( map { my(@columns); - warn $tables{$_}{'columns'}; while (@{$tables{$_}{'columns'}}) { my($name,$type,$null,$length)=splice @{$tables{$_}{'columns'}}, 0, 4; push @columns, new DBIx::DBSchema::Column ( $name,$type,$null,$length ); |