perl_checker cleanups

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@237 971eb68f-4bfb-0310-8326-d2484c010a4c

1 files changed, 10 insertions, 10 deletions

diff --git a/RPM4/t/07files.t b/RPM4/t/07files.t
index 8ca7e80..f5ac229 100644
--- a/RPM4/t/07files.t
+++ b/RPM4/t/07files.t
@@ -9,31 +9,31 @@ use RPM4;
 my $htest = RPM4::Header->new("$Bin/test-rpm-1.0-1mdk.noarch.rpm");
 isa_ok($htest, 'RPM4::Header', '$htest');
 
-my $files = $htest->files();
+my $files = $htest->files;
 isa_ok($files, 'RPM4::Header::Files', '$files');
 
 is(
-    $files->count(),
+    $files->count,
     1,
     "files count OK"
 );
 like(
-    $files->filename(),
+    $files->filename,
     qr!^/!,
     "filename OK"
 );
 like(
-    $files->dirname(),
+    $files->dirname,
     qr!^/!,
     "dirname OK"
 );
-ok(defined($files->basename()), "Can get Files::basename()");
-ok(defined($files->fflags()), "Can get Files::fflags()");
+ok(defined($files->basename), "Can get Files::basename");
+ok(defined($files->fflags), "Can get Files::fflags");
 is(
-    $files->md5(),
+    $files->md5,
     "6e5e49d3e3743eb3d5737ce8aca1fb02",
     "md5 is OK"
 );
-ok(!defined($files->link()), "Can get Files::link()");
-ok(defined($files->mode()), "Can get Files::mode()");
-ok($files->mode() > 0, "Files::mode() is positive value");
+ok(!defined($files->link), "Can get Files::link");
+ok(defined($files->mode), "Can get Files::mode");
+ok($files->mode > 0, "Files::mode is positive value");