generalize the use of chomp_ as the functional alternative to chomp (and works on lists)

1 files changed, 2 insertions, 2 deletions

diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 291161943..b34b7df33 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -398,10 +398,10 @@ sub unpack_ {
     local *F;
     open F, $_[0] or die "can't open file $_: $!\n";
     while (1) {
-	my ($size) = chop_(scalar <F>);
+	my $size = chomp_(scalar <F>);
 	defined $size or last;
 	$size =~ /^\d+$/ or die "bad format (can't find file size)\n";
-	my ($filename) = chop_(scalar <F>) or die "expecting filename\n";
+	my $filename = chomp_(scalar <F>) or die "expecting filename\n";
 
 	print "$filename\n";
 	my $dir = dirname($filename);