-T causing problems

[freeside.git] / FS / bin / freeside-setup

diff --git a/FS/bin/freeside-setup b/FS/bin/freeside-setup
index d813e76..fd9f74a 100755 (executable)
--- a/FS/bin/freeside-setup
+++ b/FS/bin/freeside-setup
@@ -1,8 +1,13 @@
-#!/usr/bin/perl -Tw
+#!/usr/bin/perl -w
 
 #to delay loading dbdef until we're ready
 BEGIN { $FS::Schema::setup_hack = 1; }
 
+#to allow initial insert
+use FS::part_pkg;
+$FS::part_pkg::setup_hack = 1;
+$FS::part_pkg::setup_hack = 1;
+
 use strict;
 use vars qw($opt_u $opt_d $opt_v);
 use Getopt::Std;
@@ -21,7 +26,7 @@ die "Not running uid freeside!" unless checkeuid();
 
 getopts("u:vd:");
 my $config_dir = shift || '%%%DIST_CONF%%%' ;
-$config_dir =~ /^([\w.:=]+)$/
+$config_dir =~ /^([\w.:=\/]+)$/
   or die "unacceptable configuration directory name";
 $config_dir = $1;