�PNG  IHDR��;���IDATx��ܻn�0���K�� �)(�pA��� ���7�LeG{�� �§㻢|��ذaÆ 6lذaÆ 6lذaÆ 6lom��$^�y���ذag�5bÆ 6lذaÆ 6lذa{���� 6lذaÆ �`����}H�Fkm�,�m����Ӫ���ô�ô!� �x�|'ܢ˟;�E:���9�&ᶒ�}�{�v]�n&�6� �h��_��t�ڠ͵-ҫ���Z;��Z$�.�P���k�ž)�!��o���>}l�eQfJ�T��u і���چ��\��X=8��Rن4`Vw�l�>����n�G�^��i�s��"ms�$�u��i��?w�bs[m�6�K4���O���.�4��%����/����b�C%��t ��M�ז� �-l�G6�mrz2���s�%�9��s@���-�k�9�=���)������k�B5����\��+͂�Zsٲ ��Rn��~G���R���C����� �wIcI��n7jJ���hۛNCS|���j0��8y�iHKֶۛ�k�Ɉ+;Sz������L/��F�*\��Ԕ�#"5��m�2��[S��������=�g��n�a�P�e�ғ�L�� lذaÆ 6l�^k��̱aÆ 6lذaÆ 6lذa;���� �_��ذaÆ 6lذaÆ 6lذaÆ ���R���IEND�B` # Copyright © 2008-2010, 2012-2015 Guillem Jover # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with this program. If not, see . package Dpkg::Source::Functions; use strict; use warnings; our $VERSION = '0.01'; our @EXPORT_OK = qw( erasedir fixperms chmod_if_needed fs_time is_binary ); use Exporter qw(import); use Errno qw(ENOENT); use Dpkg::ErrorHandling; use Dpkg::Gettext; use Dpkg::IPC; sub erasedir { my $dir = shift; if (not lstat($dir)) { return if $! == ENOENT; syserr(g_('cannot stat directory %s (before removal)'), $dir); } system 'rm', '-rf', '--', $dir; subprocerr("rm -rf $dir") if $?; if (not stat($dir)) { return if $! == ENOENT; syserr(g_("unable to check for removal of directory '%s'"), $dir); } error(g_("rm -rf failed to remove '%s'"), $dir); } sub fixperms { my $dir = shift; my ($mode, $modes_set); # Unfortunately tar insists on applying our umask _to the original # permissions_ rather than mostly-ignoring the original # permissions. We fix it up with chmod -R (which saves us some # work) but we have to construct a u+/- string which is a bit # of a palaver. (Numeric doesn't work because we need [ugo]+X # and [ugo]= doesn't work because that unsets sgid on dirs.) $mode = 0777 & ~umask; for my $i (0 .. 2) { $modes_set .= ',' if $i; $modes_set .= qw(u g o)[$i]; for my $j (0 .. 2) { $modes_set .= $mode & (0400 >> ($i * 3 + $j)) ? '+' : '-'; $modes_set .= qw(r w X)[$j]; } } system('chmod', '-R', '--', $modes_set, $dir); subprocerr("chmod -R -- $modes_set $dir") if $?; } # Only change the pathname permissions if they differ from the desired. # # To be able to build a source tree, a user needs write permissions on it, # but not necessarily ownership of those files. sub chmod_if_needed { my ($newperms, $pathname) = @_; my $oldperms = (stat $pathname)[2] & 07777; return 1 if $oldperms == $newperms; return chmod $newperms, $pathname; } # Touch the file and read the resulting mtime. # # If the file doesn't exist, create it, read the mtime and unlink it. # # Use this instead of time() when the timestamp is going to be # used to set file timestamps. This avoids confusion when an # NFS server and NFS client disagree about what time it is. sub fs_time($) { my $file = shift; my $is_temp = 0; if (not -e $file) { open(my $temp_fh, '>', $file) or syserr(g_('cannot write %s')); close($temp_fh); $is_temp = 1; } else { utime(undef, undef, $file) or syserr(g_('cannot change timestamp for %s'), $file); } stat($file) or syserr(g_('cannot read timestamp from %s'), $file); my $mtime = (stat(_))[9]; unlink($file) if $is_temp; return $mtime; } sub is_binary($) { my $file = shift; # Perform the same check as diff(1), look for a NUL character in the first # 4 KiB of the file. open my $fh, '<', $file or syserr(g_('cannot open file %s for binary detection'), $file); read $fh, my $buf, 4096, 0; my $res = index $buf, "\0"; close $fh; return $res >= 0; } 1;