Note: Due to technical difficulties, the Archives are currently not up to date.
GMANE provides an alternative service for most mailing lists. c.f. bug 424647
robbat2 08/09/17 21:34:40
Modified: checkgroup.pl
Log:
Add debug code.
Revision Changes Path
1.2 checkgroup.pl
file : http://sources.gentoo.org/viewcvs.py/CVSROOT/checkgroup.pl?rev=1.2&view=markup
plain: http://sources.gentoo.org/viewcvs.py/CVSROOT/checkgroup.pl?rev=1.2&content-type=text/plain
diff : http://sources.gentoo.org/viewcvs.py/CVSROOT/checkgroup.pl?r1=1.1&r2=1.2
Index: checkgroup.pl
===================================================================
RCS file: /var/cvsroot/CVSROOT/checkgroup.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -p -w -b -B -u -u -r1.1 -r1.2
--- checkgroup.pl 17 Sep 2008 21:30:36 -0000 1.1
+++ checkgroup.pl 17 Sep 2008 21:34:40 -0000 1.2
@@ -2,6 +2,7 @@
use strict;
use warnings;
use File::Spec;
+use File::stat;
my $cvsroot = shift @ARGV;
my $repo = shift @ARGV;
@@ -10,4 +11,9 @@ my $path = shift @ARGV;
foreach(@ARGV) {
my $filepath = File::Spec->catfile($cvsroot, $repo, $path, $_);
print STDERR $filepath."\n";
+ -f $filepath or die "$filepath does not exist.";
+ my $sb = stat($filepath);
+ printf "File is %s, size is %s, perm %04o, mtime %s, gid %s\n",
+ $filepath, $sb->size, $sb->mode & 07777,
+ scalar localtime $sb->mtime, $sb->gid;
}
|
|
