From b4ed93c5772efcd35932bd44de1c6f5c67273879 Mon Sep 17 00:00:00 2001 From: cjwatson <> Date: Sun, 17 Nov 2002 21:04:34 -0800 Subject: [PATCH] [project @ 2002-11-17 21:04:34 by cjwatson] Spaces are cheap, use some so my syntax highlighting doesn't break. :) --- scripts/errorlib.in | 4 ++-- scripts/expire.in | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/errorlib.in b/scripts/errorlib.in index a59c8a24..c80a3abf 100755 --- 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 224fe60d..4c004eef 100755 --- 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) { -- 2.39.5