Descriptions: Code changes to upstream's examples as of 1.3.1-3

--- iselect-1.3.1.orig/example/scvs/scvs
+++ iselect-1.3.1/example/scvs/scvs
@@ -6,8 +6,8 @@
 
 require 5.004;
 
-use Term::Cap;
-use File::PathConvert;
+use Term::ANSIColor;
+use File::Spec;
 use IO::File 1.06;
 use Cwd;
 
@@ -16,34 +16,12 @@ use Cwd;
 ##  1. Determine terminal capabilities
 ##
 
-$term = Tgetent Term::Cap { TERM => undef, OSPEED => 9600 };
-$bold = $term->Tputs('md', 1, undef);
-$norm = $term->Tputs('me', 1, undef);
-
-
 ##   
 ##   2. Find .scvsrc files and read contents into %CVSROOTS hash
 ##
 
 %CVSROOTS = ();
 
-#   determine canonical path
-sub canonical_path {
-    my ($path) = @_;
-    my ($pathL);
-
-    $pathL = '';
-    while ($path ne $pathL) {
-        $pathL = $path;
-        $path =~ s|//|/|g;
-        $path =~ s|/\./|/|g;
-        $path =~ s|/\.$|/|g;
-        $path =~ s|^./||g;
-        $path =~ s|([^/.][^/.]*)/\.\.||;
-    }
-    return $path;
-}
-
 #   create list of dirs back to root
 ($cwd = Cwd::cwd) =~ s|/$||;
 $cwdT = $cwd;
@@ -55,9 +33,10 @@ while ($cwdT) {
 #   search for .scvsrc files
 foreach $dir (reverse(@DIR)) {
     if (-f "$dir/.scvsrc") {
-        $reldir = &canonical_path(File::PathConvert::abs2rel($dir));
-        $subdir = &canonical_path(File::PathConvert::abs2rel($cwd, $dir));
-        $rcfile = &canonical_path("$reldir/.scvsrc");
+        $reldir = File::Spec->abs2rel($dir);
+        $reldir = '.' if $reldir eq '';
+        $subdir = File::Spec->abs2rel($cwd, $dir);
+        $rcfile = "$reldir/.scvsrc";
         &process_rcfile($rcfile, $cwd, $reldir, $subdir);
     }
 }
@@ -103,7 +82,6 @@ $locC = <$root>;
 $locC =~ s|\n$||;
 $root->close();
 
-
 ##
 ##  4. Create iSelect page with list of available CVS repositories
 ##     and fire up iSelect with it
@@ -158,14 +136,14 @@ elsif ($locN eq $locC) {
 $prefixN = $locN;
 $prefixN =~ s|^[^/]+||;
 
-foreach $dir (split(/\n/, `find . -name CVS -type d -depth -print`)) {
+foreach $dir (split(/\n/, `find . -noleaf -depth -type d -name CVS -print `)) {
     $dir =~ s|^\./||;
     $dirname = $dir;
     if (length($dirname) > 60) {
         $dirname = '..'.substr($dirname, length($dirname)-60, 60);
     }
     $dirname = sprintf("%-60s", $dirname);
-    print STDERR "Processing: ${bold}$dirname$norm\r";
+    print STDERR "Processing: ".colored("$dirname\r", 'bold');
 
     open(FP, "<$dir/Root");
     $locO = <FP>;
