diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:34:29 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:34:29 +0000 |
| commit | 91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4 (patch) | |
| tree | 4414c5721935b629d82eca700270194e71de0f46 /urpm/sys.pm | |
| parent | c00ac473861f824abb28efd94645276893868bb6 (diff) | |
| download | urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar.gz urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar.bz2 urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.tar.xz urpmi-91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4.zip | |
perl_checker compliance
Diffstat (limited to 'urpm/sys.pm')
| -rw-r--r-- | urpm/sys.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/urpm/sys.pm b/urpm/sys.pm index 0b191265..9defc2f5 100644 --- a/urpm/sys.pm +++ b/urpm/sys.pm @@ -6,7 +6,7 @@ use strict; use warnings; use POSIX (); -(our $VERSION) = q$Revision$ =~ /(\d+)/; +(our $VERSION) = q($Revision$) =~ /(\d+)/; #- find used mount point from a pathname, use a optional mode to allow #- filtering according the next operation (mount or umount). @@ -110,7 +110,7 @@ sub first_free_loopdev () { sub trim_until_d { my ($dir) = @_; open my $mounts, '/proc/mounts' or do { warn "Can't read /proc/mounts: $!\n"; return $dir }; - local *_; + local $_; while (<$mounts>) { #- fail if an iso is already mounted m!^/dev/loop! and return $dir; @@ -171,14 +171,14 @@ sub mktempdir { } # temporary hack used by urpmi when restarting itself. -sub fix_fd_leak { +sub fix_fd_leak() { opendir my $dirh, "/proc/$$/fd" or return undef; my @fds = grep { /^(\d+)$/ && $1 > 2 } readdir $dirh; closedir $dirh; for (@fds) { my $link = readlink("/proc/$$/fd/$_"); $link or next; - next if $link =~ m(^/(usr|dev)/) || $link !~ m(^/); + next if $link =~ m!^/(usr|dev)/! || $link !~ m!^/!; POSIX::close($_); } } |