view release on metacpan or  search on metacpan

PseudoIncLib.pm  view on Meta::CPAN

			$atime,   # last access time in seconds since the epoch
			$mtime,   # last modify time in seconds since the epoch
			$ctime,   # inode change time (NOT creation time!) in seconds since the epoch
			$blksize, # preferred block size for file system I/O
			$blocks   # actual number of blocks allocated
				) = stat ($full_file_name);

		# on this stage the sub-directory has some (fictive in my understanding) size...
		$row->{size} = $size_2;
		$row->{inode} = $ino;
		$row->{owner} = getpwuid($uid) unless $self->{skip_owner};
		$row->{group} = getgrgid($gid) unless $self->{skip_group};

		if ($type eq 'd') {
			# one directory might have multiple rpm-owners like:
			#    [slava@PBC110 slava]$ rpm -qf /usr/lib/perl5/5.6.1/i386-linux
			#    perl-5.6.1-34.99.6
			#    perl-DBI-1.21-1
			#    perl-DBD-Pg-1.01-8
			#    perl-DBD-MySQL-1.2219-6
			# I care about the rpm-owners of particular files only:

PseudoIncLib.pm  view on Meta::CPAN

		my $now_string = strftime "%B %d, %Y at %H:%M", localtime ($mtime);
		$lib_descr->{last_mod_time_text} = $now_string;

		$lib_descr->{full_name} = $dir;

		unless ($self->{skip_mode}){
			my $permissions = sprintf "%04o", $mode & 07777;
			$lib_descr->{permissions_octal_text} = $permissions;
		}

		$lib_descr->{owner} = getpwuid($uid) unless $self->{skip_owner};
		$lib_descr->{group} = getgrgid($gid) unless $self->{skip_group};
		$lib_descr->{inode} = $ino;

		$lib_descr->{child_dir_list} = $self->_dir_description (
			root_dir		=> $dir,
			prior_libs		=> $prior_libs,
			pseudo_cpan_root_name	=> '', # it warns in debug when I use undef over here
			parent_index		=> $lib_index_name,
			inc_lib			=> $dir,
			parent_depth_level	=> $depth_level,