Skip to content
Browse files

Set $Vend::ControllingInterchange = 1 before calling global_config()

so that the core tags don't get compiled unnecessarily.

It doesn't save a lot of time, but every little helps.
  • Loading branch information...
1 parent 4938ea8 commit dde2445a88a6ed3af51196430ceee67abd0359c6 Kevin Walsh committed Feb 4, 2002
Showing with 12 additions and 4 deletions.
  1. +8 −2 scripts/expire.PL
  2. +4 −2 scripts/expireall.PL
View
10 scripts/expire.PL
@@ -50,7 +50,7 @@ DOIT: {
#
# Interchange session expiration
#
-# $Id: expire.PL,v 2.1 2002-01-16 18:57:52 jon Exp $
+# $Id: expire.PL,v 2.2 2002-02-04 07:41:39 kwalsh Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -224,8 +224,14 @@ my $g;
if(defined $catalog) {
my($name,$dir,$param);
- chdir $Global::VendRoot;
+
+ # Parse the interchange.cfg file to look for script/catalog info
+ # but don't read in the core tags
+ $Vend::ControllingInterchange = 1;
+ chdir $Global::VendRoot
+ or die "Couldn't change to $Global::VendRoot: $!\n";
global_config();
+
$g = $Global::Catalog{$catalog};
chdir $g->{dir} or die "chdir to $g->{dir}: $!\n";
$Vend::Cfg = Vend::Config::config(
View
6 scripts/expireall.PL
@@ -50,7 +50,7 @@ DOIT: {
#
# Interchange session expiration for all catalogs
#
-# $Id: expireall.PL,v 2.1 2002-02-03 01:31:56 kwalsh Exp $
+# $Id: expireall.PL,v 2.2 2002-02-04 07:41:39 kwalsh Exp $
#
# Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
#
@@ -155,6 +155,8 @@ unless ($opt_n) {
}
# Parse the interchange.cfg file to look for script/catalog info
+# but don't read in the core tags
+$Vend::ControllingInterchange = 1;
chdir $Global::VendRoot or die "Couldn't change to $Global::VendRoot: $!\n";
global_config();
@@ -173,7 +175,7 @@ expireall -- Run Interchange expire on all catalogs
=head1 VERSION
-# $Id: expireall.PL,v 2.1 2002-02-03 01:31:56 kwalsh Exp $
+# $Id: expireall.PL,v 2.2 2002-02-04 07:41:39 kwalsh Exp $
=head1 DESCRIPTION

0 comments on commit dde2445

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