Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Set to remove error messages when running.

  • Loading branch information...
commit 5ce6fe82fd3b95942a14f548fe2009e362d0c411 1 parent 73e935e
@perusionmike perusionmike authored
Showing with 4 additions and 5 deletions.
  1. +4 −5 scripts/expire.PL
View
9 scripts/expire.PL
@@ -25,7 +25,7 @@ DOIT: {
#
# Interchange session expiration
#
-# $Id: expire.PL,v 1.7 2000-09-25 16:36:58 zarko Exp $
+# $Id: expire.PL,v 1.8 2000-10-04 23:36:57 heins Exp $
#
# Copyright (C) 1996-2000 Akopia, Inc. <info@akopia.com>
#
@@ -95,7 +95,8 @@ $Global::HammerLock = 20;
$Global::ErrorFile = 'error.log';
$Vend::ExternalProgram = 1;
-$Vend::SessionName = 'utility';
+$Vend::Quiet = 1;
+$Vend::SessionName = 'utility';
#select a DBM
@@ -124,11 +125,9 @@ BEGIN {
}
}
-$Vend::Quiet = 1;
-
sub logGlobal {
ref $_[0] and shift(@_);
- warn(errmsg(@_));
+ warn(errmsg(@_)) unless $Vend::Quiet;
}
sub is_retired {}
Please sign in to comment.
Something went wrong with that request. Please try again.