- perl -pi -e 's!hard drive!hard disk drive!'

1 files changed, 1 insertions, 1 deletions

diff --git a/perl-install/resize_fat/main.pm b/perl-install/resize_fat/main.pm
index 1c822a715..34bf2f9bf 100644
--- a/perl-install/resize_fat/main.pm
+++ b/perl-install/resize_fat/main.pm
@@ -44,7 +44,7 @@ sub DESTROY {
 
 #- copy all clusters >= <start_cluster> to a new place on the partition, less
 #- than <start_cluster>. Only copies files, not directories.
-#- (use of buffer needed because the seeks slow like hell the hard drive)
+#- (use of buffer needed because the seeks slow like hell the hard disk drive)
 sub copy_clusters {
     my ($fs, $cluster) = @_;
     my @buffer;