X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=bin%2Fparse-contents;h=82df0b87b74341795df60a232670cd17ded0b9fc;hb=24d90ece880a98242a02dcae6d4d8d076b7cdf95;hp=f7fa9a44d3419166435ccb96d8e7311226812080;hpb=0b1112228d65f8030d1df4000aff29b62944d2bd;p=deb%2Fpackages.git diff --git a/bin/parse-contents b/bin/parse-contents index f7fa9a4..82df0b8 100755 --- a/bin/parse-contents +++ b/bin/parse-contents @@ -38,6 +38,7 @@ use English; use DB_File; use Storable; use File::Path; +use File::Basename; use Packages::CommonCode qw(:all); use Packages::Config qw( $TOPDIR $DBDIR @ARCHIVES @SUITES @ARCHITECTURES ); &Packages::Config::init( './' ); @@ -142,7 +143,7 @@ for my $suite (@suites) { activate($filelist_db); #FIXME: hardcoded archs. (debports has no contrib/non-free) if ($arch !~ m/^kfreebsd-.*$/) { - system("ln", "-sf", $filelist_db, + system("ln", "-sf", basename($filelist_db), "$DBDIR/filelists_${suite}_all.db") == 0 or die "Oops"; }