diff options
author | Stig Thormodsrud <stig@vyatta.com> | 2009-04-27 18:03:50 -0700 |
---|---|---|
committer | Stig Thormodsrud <stig@vyatta.com> | 2009-04-27 18:03:50 -0700 |
commit | 6098a862a26de6526354513295a911cb46f6f56b (patch) | |
tree | 059873c4c904a19e736bdbb638e037493b428161 /scripts/vyatta-banner.pl | |
parent | 806a207b85dc4c7f9b94b3975f3b7eccb9ee20bf (diff) | |
download | vyatta-cfg-system-6098a862a26de6526354513295a911cb46f6f56b.tar.gz vyatta-cfg-system-6098a862a26de6526354513295a911cb46f6f56b.zip |
Replace md5 compare with a (hopefully) lighter-weight file compare.
Diffstat (limited to 'scripts/vyatta-banner.pl')
-rw-r--r-- | scripts/vyatta-banner.pl | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/scripts/vyatta-banner.pl b/scripts/vyatta-banner.pl index 8c3db846..7ae35edf 100644 --- a/scripts/vyatta-banner.pl +++ b/scripts/vyatta-banner.pl @@ -33,8 +33,7 @@ use Vyatta::Config; use Getopt::Long; use File::Copy; -use Digest::MD5 qw(md5_hex); -use Digest::file qw(digest_file_hex); +use File::Compare; use strict; use warnings; @@ -61,9 +60,14 @@ sub is_same_as_file { my ($file, $value) = @_; return if ! -e $file; - my $fdigest = digest_file_hex($file, "MD5"); - my $vdigest = md5_hex("$value"); - return 1 if $fdigest eq $vdigest; + + my $mem_file; + open my $MF, '+<', \$mem_file or die "couldn't open memfile $!\n"; + print $MF $value; + seek($MF, 0, 0); + + my $rc = compare($file, $MF); + return 1 if $rc == 0; return; } |