+ open QRC, ">$qrcfile" or die "Could not open $qrcfile for writing!\n";
+ print QRC $qrc;
+ close QRC;
+}
+
+sub push_icon_path {
+ return unless /\.png$/;
+ my $alias = $File::Find::name;
+ $alias =~ s,^[^/]*(.*),$1,;
+
+ push @file_list, " <file alias=\"oxygen$alias\">$File::Find::name</file>";
+}