diff options
Diffstat (limited to 'src/windows/build/zipXML.pl')
-rw-r--r-- | src/windows/build/zipXML.pl | 42 |
1 files changed, 21 insertions, 21 deletions
diff --git a/src/windows/build/zipXML.pl b/src/windows/build/zipXML.pl index 0c50e96aed..01e8fed419 100644 --- a/src/windows/build/zipXML.pl +++ b/src/windows/build/zipXML.pl @@ -1,21 +1,21 @@ -#!perl -w
-
-#use strict;
-require "makeZip.pl";
-
-use Data::Dumper;
-
-sub zipXML {
- local ($xml, $config) = @_;
- my $zipsXML = $xml->{Zips};
- if (! $zipsXML) {return 0;}
-
- local $i = 0;
- while ($zipsXML->{Zip}[$i]) {
- local $zip = $zipsXML->{Zip}[$i];
- makeZip($zip, $config) if (exists $zip->{name}); ## Ignore dummy entry.
- $i++;
- } ## End zip in xml.
- }
-
-return 1;
+#!perl -w + +#use strict; +require "makeZip.pl"; + +use Data::Dumper; + +sub zipXML { + local ($xml, $config) = @_; + my $zipsXML = $xml->{Zips}; + if (! $zipsXML) {return 0;} + + local $i = 0; + while ($zipsXML->{Zip}[$i]) { + local $zip = $zipsXML->{Zip}[$i]; + makeZip($zip, $config) if (exists $zip->{name}); ## Ignore dummy entry. + $i++; + } ## End zip in xml. + } + +return 1; |