# HG changeset patch
# User William Roberts <williamr@symbian.org>
# Date 1273078927 -3600
# Node ID 8c93132f4c49690de3d9398a56ac5d11679f934f
# Parent  e5a9edf0be251663c57b53d692f7cd8b89af66f3
Make listzip.pl tolerant of being run under SBS - further fix for Bug 2509

diff -r e5a9edf0be25 -r 8c93132f4c49 sbsv1_os/e32toolp/genutil/listzip.pl
--- a/sbsv1_os/e32toolp/genutil/listzip.pl	Wed Apr 28 22:23:47 2010 +0100
+++ b/sbsv1_os/e32toolp/genutil/listzip.pl	Wed May 05 18:02:07 2010 +0100
@@ -32,6 +32,9 @@
     _print_err_and_die("$prefix is not a directory.") unless -d $prefix;
     _print_err_and_die("$zipf doesn't exist.") unless -f $zipf;
 
+    $prefix =~ s/\/\//\//g;    # SBS provides "Q://", so reduce the doubling
+    $prefix =~ s/\/$//;        # remove trailing /, if any
+		
     my @raw_data = qx/unzip -l $zipf/;
 
     for (@raw_data)