Bug fixes, new major version

Author: jgg
Date: 2000-01-27 04:15:09 GMT
Bug fixes, new major version

2 files changed, 7 insertions, 1 deletions

diff --git a/dselect/install b/dselect/install
index 93a0f1e4..3fbab73c 100755
--- a/dselect/install
+++ b/dselect/install
@@ -39,6 +39,7 @@ yesno() {
 	echo $ans | tr YN yn
 }
 
+OLDLS=`ls -ld $ARCHIVES`
 if [ x$WAIT = "xyes" ]; then
    $APTGET $OPTS -d dselect-upgrade
    echo "Press enter to continue." && read RES
@@ -61,6 +62,11 @@ if [ $RES -eq 0 ]; then
         -eq 0 ]; then
       exit 0
    fi
+
+   NEWLS=`ls -ld $ARCHIVES`
+   if [ "x$OLDLS" == "x$NEWLS" ]; then
+      exit 0
+   fi
    
    # Check the cleaning mode
    case `echo $CLEAN | tr '[:upper:]' '[:lower:]'` in
diff --git a/dselect/setup b/dselect/setup
index 86055d0a..8386d900 100755
--- a/dselect/setup
+++ b/dselect/setup
@@ -269,7 +269,7 @@ sub main {
     print "-" x 72, "\n";
     &print_config('Config' => \@Oldconfig);
     print "-" x 72, "\n";
-    print "$boldon Do you wish to change it?[y/N]$boldoff ";
+    print "$boldon Do you wish to change (overwrite) it?[y/N]$boldoff ";
     my $answer = <STDIN>;
     chomp ($answer);
     $answer =~ s/\s+/ /og;