Skip to content
Browse files

testing

  • Loading branch information...
1 parent 644db6f commit 2a14b06d94bcef021760a533900861a23858a459 Eric Zarko committed Sep 25, 2000
Showing with 18 additions and 17 deletions.
  1. +18 −17 scripts/update.PL
View
35 scripts/update.PL
@@ -23,12 +23,14 @@ DOIT: {
#!/usr/bin/perl
##!~_~perlpath~_~
#
-# update - Interchange database updater
+# Interchange database updater
#
-# $Id: update.PL,v 1.6 2000-09-23 18:49:30 heins Exp $
+# $Id: update.PL,v 1.7 2000-09-25 16:08:06 zarko Exp $
#
# Copyright (C) 1996-2000 Akopia, Inc. <info@akopia.com>
#
+# See the file 'Changes' for information.
+#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
@@ -49,14 +51,19 @@ use lib '/usr/local/interchange/lib';
use lib '/usr/local/interchange';
#use lib '~_~INSTALLARCHLIB~_~';
-BEGIN {
+use strict;
+use Fcntl;
+use Vend::Config;
+use Vend::Data;
+use Vend::Util;
- eval {
- require 5.004;
- require FindBin;
- 1 and $Global::VendRoot = "$FindBin::RealBin";
- 1 and $Global::VendRoot =~ s/.bin$//;
- };
+BEGIN {
+ eval {
+ require 5.004;
+ require FindBin;
+ 1 and $Global::VendRoot = "$FindBin::RealBin";
+ 1 and $Global::VendRoot =~ s/.bin$//;
+ };
($Global::VendRoot = $ENV{MINIVEND_ROOT})
if defined $ENV{MINIVEND_ROOT};
$Global::VendRoot = $Global::VendRoot || '/usr/local/interchange';
@@ -75,7 +82,8 @@ BEGIN {
$Global::ConfigFile = 'interchange.cfg';
}
}
-### END CONFIGURABLE VARIABLES
+
+### END CONFIGURATION VARIABLES
sub dontwarn { $FindBin::RealBin; }
@@ -84,9 +92,6 @@ $Vend::ExternalProgram = 1;
my $DEBUG = 0;
-use strict;
-use Fcntl;
-
#select a DBM
BEGIN {
@@ -117,10 +122,6 @@ BEGIN {
}
}
-use Vend::Config;
-use Vend::Data;
-use Vend::Util;
-
$Vend::Cfg = {};
my $Name = 'products';

0 comments on commit 2a14b06

Please sign in to comment.
Something went wrong with that request. Please try again.