[project @ 2002-11-17 21:04:34 by cjwatson]

Spaces are cheap, use some so my syntax highlighting doesn't break. :)

diff --git a/scripts/errorlib.in b/scripts/errorlib.in
index a59c8a247432090c816e7998dc6c845d734a162c..c80a3abf2d295619333766a44faa5be6f886695c 100755 (executable)
--- a/scripts/errorlib.in
+++ b/scripts/errorlib.in
@@ -1,5 +1,5 @@
 # -*- perl -*-
-# $Id: errorlib.in,v 1.15 2002/11/08 14:01:33 ajt Exp $
+# $Id: errorlib.in,v 1.16 2002/11/17 21:04:34 cjwatson Exp $
 
 sub F_SETLK { 6; } sub F_WRLCK{ 1; }
 $flockstruct= 'sslll'; # And there ought to be something for this too.
@@ -157,7 +157,7 @@ sub bughook {
 
        &appendfile("debbugs.trace","$type $ref\n",@_);
 
-       my @stuff=split/\n/, "$_[0]\n\n\n\n\n\n\n";
+       my @stuff=split /\n/, "$_[0]\n\n\n\n\n\n\n";
 
        my $firstpkg;
        my $whendone = "open";

diff --git a/scripts/expire.in b/scripts/expire.in
index 224fe60de63b96637036548374b966b23f9adc8c..4c004eef28050ded8d5b4d42b5cf642c33bee2bd 100755 (executable)
--- a/scripts/expire.in
+++ b/scripts/expire.in
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: expire.in,v 1.12 2002/11/07 11:42:35 ajt Exp $
+# $Id: expire.in,v 1.13 2002/11/17 21:04:34 cjwatson Exp $
 
 # Load modules and set envirnment
 use File::Copy;
@@ -37,7 +37,7 @@ while (length($ref=shift(@list))) {
     (&unlockreadbugmerge($bfound), next) unless length($s_done);
        print "$ref read done\n" if $debug;
     @aref= ($ref);
-    if (length($s_mergedwith)) { push(@aref,split/ /,$s_mergedwith); }
+    if (length($s_mergedwith)) { push(@aref,split / /,$s_mergedwith); }
        print "$ref aref @aref\n" if $debug;
     $oktoremove= 1;
     for $mref (@aref) {