[Logcheck-commits] r1614 - logcheck/branches/zugschlus200707/src

[zugschlus at users.alioth.debian.org]

Author: zugschlus
Date: 2007-07-27 17:52:04 +0000 (Fri, 27 Jul 2007)
New Revision: 1614

Modified:
   logcheck/branches/zugschlus200707/src/logtail2
Log:
fix parenthesis


Modified: logcheck/branches/zugschlus200707/src/logtail2
===================================================================
--- logcheck/branches/zugschlus200707/src/logtail2	2007-07-27 17:43:26 UTC (rev 1613)
+++ logcheck/branches/zugschlus200707/src/logtail2	2007-07-27 17:52:04 UTC (rev 1614)
@@ -71,8 +71,8 @@
 sub mtime {
     my ($filename) = @_;
     my $mtime = 0;
-    if (-e "$filename") {
-      unless ($mtime = (stat($filename)[8])) {
+    if (-e $filename) {
+      unless ($mtime = ((stat($filename))[8])) {
           print STDERR "Cannot get $filename mtime.\n";
           exit 65;
       }
@@ -84,7 +84,7 @@
     my ($filename) = @_;
     my $inode = 0;
     if (-e "$filename") {
-      unless ($inode = (stat($filename)[1])) {
+      unless ($inode = ((stat($filename))[1])) {
           print STDERR "Cannot get $filename inode.\n";
           exit 65;
       }
@@ -124,7 +124,7 @@
     	$rotated_filename="$filename.1";
     } else {
 	# find out whether we have a dateext rotation scheme
-	print "dateext\n";
+	print "dateext $filename\n";
 	my @list = glob("$filename-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]");
 	print "glob ". join(".", @list). "\n";
 	$rotated_filename = (sort(glob("$filename-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]")))[-1];