#!/usr/bin/perl

local %ALL = ();

foreach(`ls feed/*.deb feed/*.ipk`)
{
  chomp;
  my $m = $_;
  s#_.*##s;
  if (defined($ALL{$_}))
  {
    print "double: $m $ALL{$_}\n";
  }
  else
  {
    $ALL{$_} = $m;
  }
}