equal
deleted
inserted
replaced
62 $packageexpr =~ s,\\,/,g; |
62 $packageexpr =~ s,\\,/,g; |
63 $packageexpr =~ s,//,/,g; |
63 $packageexpr =~ s,//,/,g; |
64 $packageexpr =~ s,^/,,; |
64 $packageexpr =~ s,^/,,; |
65 if (-d "$releaseablesdir/sf") |
65 if (-d "$releaseablesdir/sf") |
66 { |
66 { |
67 $packageexpr = "sf/$packageexpr" if ($packageexpr =~ m,^(adaptation|app|mw|os|tools),); |
67 $packageexpr = "sf/$packageexpr" if ($packageexpr =~ m,^(adaptation|adapt|app|mw|os|tools),); |
68 } |
68 } |
69 |
69 |
70 my @targetfiles = grep {-f$_} glob("$releaseablesdir/$packageexpr/info.tsv"); |
70 my @targetfiles = grep {-f$_} glob("$releaseablesdir/$packageexpr/info.tsv"); |
71 print join("\n", @targetfiles); |
71 print join("\n", @targetfiles); |
72 |
72 |