branch | RCL_3 |
changeset 39 | 8c93132f4c49 |
parent 18 | 99082257a271 |
child 76 | 2b4ec55c802e |
--- 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)