#!/usr/bin/perl use MDK::Common; my ($rel, $dest, $script) = @ARGV; $rel =~ s!/?$!!; foreach (`strace -efile perl -cw -I $rel $script 2>&1`) { my ($f) = /^open\("(.*?)",.*\)\s*=\s*\d+$/ or next; $f !~ m!/usr/lib/perl5/[^/]*/warnings.pm! or next; if (begins_with($f, $rel)) { print $f, "\t", $dest . substr($f, length($rel)), "\n"; } elsif (begins_with($f, '/dev/')) { # skip } elsif (begins_with($f, '/')) { print "$f\n"; } } d>
summaryrefslogtreecommitdiffstats
path: root/move/pkgs.pm
blob: 66f1635047fa43cd0dac5fa8638f2b0a806185ec (plain) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

#- $Id$ $

package urpm_pkg;

sub flag_available {
    return 1;
}


package pkgs;
use log;

sub rpmDbOpen {
    #- install_steps:343
}

sub packageByName {
    #- install_steps:344