rpmdrake - Mageia Graphical Package Manager

about summary refs log tree commit diff stats

	Commit message (Expand)	Author	Age	Files	Lines
*	Use field code %f for Exec field of gurpmi.addmedia as only local files are a...	Anssi Hannula	2007-09-21	1	-1/+1
*	further fix build	Thierry Vignaud	2007-09-20	1	-1/+1
*	add patterns since it was documented in old twiki	Thierry Vignaud	2007-09-18	2	-0/+2
*	remove duplicate NoDisplay=true	Anssi Hannula	2007-09-18	1	-1/+0
*	register application/x-urpmi-media MIME type again (#33436)	Thierry Vignaud	2007-09-18	4	-0/+42

id='n1' href='#n1'>1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/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";
    }
}