--- nfo/perl/scripts/archiver/bin/finder.pl	2003/02/01 01:38:35	1.1
+++ nfo/perl/scripts/archiver/bin/finder.pl	2003/02/01 02:52:32	1.2
@@ -1,9 +1,12 @@
 #!/usr/bin/perl
 
 ## ------------------------------------------------------------------------
-##  $Id: finder.pl,v 1.1 2003/02/01 01:38:35 joko Exp $
+##  $Id: finder.pl,v 1.2 2003/02/01 02:52:32 joko Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: finder.pl,v $
+##  Revision 1.2  2003/02/01 02:52:32  joko
+##  + minor update
+##
 ##  Revision 1.1  2003/02/01 01:38:35  joko
 ##  + initial commit - partly refactored from replace_cvs.pl
 ##
@@ -35,21 +38,19 @@
 BEGIN {
   use FindBin qw($Bin);
   #require "$Bin/use_libs.pl";
+  #use org::netfrag::preambel;
 }
 
 use lib qw( ../../../libs ../libs ../etc );
-#use org::netfrag::preambel;
 
 use Data::Dumper;
 use File::Find;
 use Getopt::Easy;
 
-# ----------------------------------------
-#   main
+
 # ----------------------------------------
 package main;
 
-
 my $settings;
 
 sub wanted {