Removed buildlayout35 package as this is empty and causing errors when running clone all
#!/usr/bin/perl
# Copyright (c) 2009 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Compare two 7z listings, looking for files present in both
use strict;
my %first_files;
my $line;
my $file_index = -1;
while ($line=<>)
{
if ($line =~ /^Listing archive/)
{
$file_index++;
print "$file_index: Processing $line";
next;
}
# 2009-04-30 11:26:58 D.... 0 0 epoc32\cshlpcmp_template
# 2009-03-20 22:22:18 ..... 72192 16307 epoc32\cshlpcmp_template\cshelp2000.dot
next if (length($line) < 54);
my $dir_attribute = substr($line, 20, 1);
if ($dir_attribute eq ".")
{
chomp $line;
my $fullpath = substr($line, 53);
if ($file_index == 0)
{
# first file
$first_files{$fullpath} = $line;
next;
}
if (defined $first_files{$fullpath})
{
print "Duplicate filename: $fullpath\n";
print "\t$first_files{$fullpath}\n\t$line\n";
next
}
}
}