cleaning some cruft out

diff --git a/documentation/doc_fodder/perl_tools.html b/documentation/doc_fodder/perl_tools.html
index 4c4ce4d0691299c8d13f955741b46a6f3144ab3f..8eaad2882af5744863c48086a3a005419db317dd 100644 (file)
--- a/documentation/doc_fodder/perl_tools.html
+++ b/documentation/doc_fodder/perl_tools.html
@@ -186,12 +186,7 @@ or changed files in the destination directory to be more recent than
 anything else in there.  This is helpful sometimes for forcing
 compilation of modified source files.<br>
         </blockquote>
-        <h4> </h4>
-        <h3><a href="../rev_control/cvs_fix.pl">cvs_fix.pl</a></h3>
-        <blockquote>Wraps the cygwin cvs command for pcdos/win32.
-&nbsp;Any
-unfriendly backward slashes are flipped to be forward slashes.<br>
-        </blockquote>
+
         <h3> </h3>
         <h3><a name="differ"></a><a
  href="../text/differ.pl">differ.pl</a></h3>

diff --git a/scripts/core/common.alias b/scripts/core/common.alias
index 2114d4b0d56df75425f89e3998205e3169f9473c..a830e6011015f807c849d1e4982ecab7cb4e18f5 100644 (file)
--- a/scripts/core/common.alias
+++ b/scripts/core/common.alias
@@ -15,7 +15,6 @@
 define_yeti_alias cls='clear_colormap; clear'
 define_yeti_alias copy='\cp -i -v '
 define_yeti_alias cp='\cp -i -v '
-define_yeti_alias cvs='perl $FEISTY_MEOW_SCRIPTS/rev_control/cvs_fix.pl'
 define_yeti_alias del='perl $FEISTY_MEOW_SCRIPTS/files/safedel.pl'
 define_yeti_alias deltree='perl $FEISTY_MEOW_SCRIPTS/files/safedel.pl'
 define_yeti_alias df='\df -mh'

diff --git a/scripts/rev_control/compact_git.sh b/scripts/rev_control/compact_git.sh
index abc626a53c36f8b97e7466148b426edc30467043..88efcdaae62007f0dfbf2f5188699c874cf0adaa 100644 (file)
--- a/scripts/rev_control/compact_git.sh
+++ b/scripts/rev_control/compact_git.sh
@@ -7,6 +7,9 @@ fi
 pushd "$prune_dir"
 echo cleaning git in directory $(pwd)
 git fsck --full
+check_if_failed "git fsck"
 git gc --prune=today --aggressive
+check_if_failed "git gc"
 git repack
+check_if_failed "git repack"
 popd

diff --git a/scripts/rev_control/cvs_fix.pl b/scripts/rev_control/cvs_fix.pl
deleted file mode 100644 (file)
index 4cee4be..0000000
--- a/scripts/rev_control/cvs_fix.pl
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl
-
-###############################################################################
-#                                                                             #
-#  Name   : cvs_fix                                                           #
-#  Author : Chris Koeritz                                                     #
-#  Rights : Copyright (C) 2001-$now by Author                                 #
-#                                                                             #
-#  Purpose:                                                                   #
-#                                                                             #
-#    Flips any win32 slashes into friendly forward slashes before running     #
-#  the cvs binary.                                                            #
-#                                                                             #
-###############################################################################
-#  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 (at your option)   #
-#  any later version.  See: "http://www.gruntose.com/Info/GNU/GPL.html" for a #
-#  version of the License.  Please send any updates to "fred@gruntose.com".   #
-###############################################################################
-
-#require "filename_helper.pl";
-
-$new_cmd="cvs";
-
-foreach $i (@ARGV) {
-#  printf "$i\n";
-  $i =~ s/[\/\\]*$//;
-  $i =~ s/\\/\//g;
-#  print " --> $i\n";
-  if ($i =~ /^co$/) {
-    # insert our modifiers here.
-    $new_cmd = $new_cmd . " " . $i . " -P -kb ";
-  } else {
-    # normal addition of next parameter.
-    $new_cmd = $new_cmd . " " . $i;
-  }
-}
-
-#printf "new command is: \"$new_cmd\"\n";
-#printf "are the -P and -kb flags in there?\n";
-system("$new_cmd");
-
-1;
-

diff --git a/scripts/rev_control/fix_svn_item.sh b/scripts/rev_control/fix_svn_item.sh
index 64eabaa5802c4c5fe09b81f7a4f1c25f632e14ca..941e5729d5f04c7f36682e27e5582d3bc8771b5d 100644 (file)
--- a/scripts/rev_control/fix_svn_item.sh
+++ b/scripts/rev_control/fix_svn_item.sh
@@ -5,4 +5,6 @@
 
 filename="$1"; shift
 
-svn resolve  --accept=working "$filename"
+svn resolve --accept=working "$filename"
+
+