File ksirc_fix_dsirc_with_newer_perl.patch of Package kdenetwork3

diff -ur kdenetwork-3.5.10.orig/ksirc/dsirc kdenetwork-3.5.10/ksirc/dsirc
--- kdenetwork-3.5.10.orig/ksirc/dsirc	2005-09-10 10:20:47.000000000 +0200
+++ kdenetwork-3.5.10/ksirc/dsirc	2015-02-15 12:39:01.000000000 +0100
@@ -68,12 +68,7 @@
 
 $publicAway = 1;
 
-if (!eval "require 'getopts.pl';") {
-  print "\n\n\
-Your perl interpreter is *really* screwed up: the getopts.pl library is not
-even there! Have you even bothered to run 'install'?\n";
-  exit;
-}
+use Getopt::Std;
 
 if ($] >= 5 && (eval "use Socket;", $@ eq '')) {
     $sock6 = eval ("require Socket6;") and eval("use Socket6;");
@@ -96,7 +91,7 @@
 }
     
 
-&Getopts('n:s:p:u:i:l:L:H:rqQR78S');
+&getopts('n:s:p:u:i:l:L:H:rqQR78S');
 
 %set=("LOGFILE", "", "LOG", "off", "PRINTUH", "none", "PRINTCHAN", "off",
  	"LOCALHOST", "", "CTCP", "noflood", "SENDAHEAD", 4096,