From 6533d835fa3fa3962e8e731b7f22b12cbb5f232e Mon Sep 17 00:00:00 2001
From: Ward Wouts <ward@wouts.nl>
Date: Thu, 23 Jan 2003 22:38:02 +0000
Subject: [PATCH] clean

---
 list_same/list_same | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/list_same/list_same b/list_same/list_same
index 5851e5b..342f99f 100755
--- a/list_same/list_same
+++ b/list_same/list_same
@@ -16,7 +16,6 @@ use strict;
 use Digest::MD5;
 use Getopt::Std;
 
-my ( $opt_e, $opt_h, $opt_s );
 my %opts = ();
 getopts('ehms', \%opts);
 
@@ -30,7 +29,6 @@ if ( $opts{m} ) {
 	&quick_comp(%sizes);
 }
 
-
 #################################
 # functions
 
@@ -74,8 +72,8 @@ sub quick_comp(%) {
 
 # same md5 calculation i use in mv_wrap
 sub calc_md5($) {
-	my ($file, $digest, $md5, $FILE);
-	$file = shift;
+	my $file = shift;
+	my ( $digest, $md5, $FILE );
 	$md5 = Digest::MD5->new;
 	open $FILE, "<$file" or die "couldn't open file: $!\n";
 	seek($FILE, 0, 0);
@@ -173,10 +171,8 @@ sub output($) {
 	my $string = shift;
 	if ($opts{e}) {
 		$string =~ s/([ \&\;\`\'\\\"\|\*\?\~\<\>\^\(\)\[\]\{\}\$\010\013\020\011])/\\${1}/g;
-		print "$string";
-	} else {
-		print "$string";
 	}
+	print "$string";
 }
 
 sub help {