$OpenBSD: patch-kde-dev-scripts_qt4_convert-qvhbox_pl,v 1.2 2013/07/05 14:32:50 zhuk Exp $
Cleanup development scripts, making them more portable and secure.
Upstream review 110858: http://git.reviewboard.kde.org/r/110858/
--- kde-dev-scripts/qt4/convert-qvhbox.pl.orig	Fri Jun 28 22:03:13 2013
+++ kde-dev-scripts/qt4/convert-qvhbox.pl	Fri Jul  5 18:14:32 2013
@@ -7,7 +7,7 @@ use lib dirname( $0 );
 use functionUtilkde;
 use strict;
 
-open(my $F, q(find -name "*" |));
+open(my $F, "-|", qw(find . -type f));
 my $file;
 
 while ($file = <$F>) {
@@ -15,7 +15,7 @@ while ($file = <$F>) {
     next if functionUtilkde::excludeFile( $file);
 
     my $modified;
-    open(my $FILE, $file) or warn "We can't open file $file:$!\n";
+    open(my $FILE, "<", $file) or warn "We can't open file $file:$!\n";
     my @l = map {
         my $orig = $_;
 	s!#include <q3vbox.h>!!;
@@ -32,11 +32,11 @@ while ($file = <$F>) {
     } <$FILE>;
 
     if ($modified) {
-        open (my $OUT, ">$file");
+        open (my $OUT, ">", $file);
         print $OUT @l;
         close ($OUT);
         functionUtilkde::addIncludeInFile( $file, "kvbox.h");
     }
 
 }
-functionUtilkde::diffFile( "@ARGV" );
+functionUtilkde::diffFile( @ARGV );
