From 4781e491c32fdfe0dbe3cf97a8aca90040a9406b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 17 Apr 2003 11:34:32 +0000
Subject: new perl_checker compliance

---
 perl-install/resize_fat/boot_sector.pm | 4 ++--
 perl-install/resize_fat/directory.pm   | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'perl-install/resize_fat')

diff --git a/perl-install/resize_fat/boot_sector.pm b/perl-install/resize_fat/boot_sector.pm
index c87328637..ffb1b1f34 100644
--- a/perl-install/resize_fat/boot_sector.pm
+++ b/perl-install/resize_fat/boot_sector.pm
@@ -51,7 +51,7 @@ sub read($) {
     my ($fs) = @_;
 
     my $boot = eval { resize_fat::io::read($fs, 0, $SECTORSIZE) }; $@ and die "reading boot sector failed on device $fs->{fs_name}";
-    @{$fs}{@fields} = unpack $format, $boot;
+    @$fs{@fields} = unpack $format, $boot;
 
     $fs->{nb_sectors} = $fs->{small_nb_sectors} || $fs->{big_nb_sectors};
     $fs->{cluster_size} = $fs->{cluster_size_in_sectors} * $fs->{sector_size};
@@ -98,7 +98,7 @@ sub read($) {
 
 sub write($) {
     my ($fs) = @_;
-    my $boot = pack($format, @{$fs}{@fields});
+    my $boot = pack($format, @$fs{@fields});
 
     eval { resize_fat::io::write($fs, 0, $SECTORSIZE, $boot) }; $@ and die "writing the boot sector failed on device $fs->{fs_name}";
 
diff --git a/perl-install/resize_fat/directory.pm b/perl-install/resize_fat/directory.pm
index 55bae687f..a742d7c26 100644
--- a/perl-install/resize_fat/directory.pm
+++ b/perl-install/resize_fat/directory.pm
@@ -41,10 +41,10 @@ sub traverse($$$) {
 	#- empty entry means end of directory
 	$$raw =~ /^\0*$/ and return $directory;
 
-	my $entry; @{$entry}{@fields} = unpack $format, $$raw;
+	my $entry; @$entry{@fields} = unpack $format, $$raw;
 
 	&$f($curr_dir_name, $entry)
-	    and	$$raw = pack $format, @{$entry}{@fields};
+	    and	$$raw = pack $format, @$entry{@fields};
     }
     $directory;
 }
-- 
cgit v1.2.1