#!/usr/bin/perl -w
use strict;

my $module=$ARGV[0];

open(my $F, "</d/kde/src/5/sysadmin/repo-metadata/dependencies/dependency-data-kf5-qt5");
while (<$F>) {
    if (/^$module: (.*)/) {
        my $dep = $1;
        print "    '$dep' : '\@same'\n";
    }
}
close $F;