diff --git a/scripts/autoop.pl b/scripts/autoop.pl

index b72def15..ee6de4b8 100644

--- a/scripts/autoop.pl

+++ b/scripts/autoop.pl

@@ -91,7 +91,7 @@ Irssi::command_bind('autoop', 'cmd_autoop');

 Irssi::signal_add_last('massjoin', 'event_massjoin');

 sub load_autoops {

-    my($file) = Irssi::get_irssi_dir."/autoop";

+    my($file) = Irssi::get_irssi_dir()."/autoop";

     my($count) = 0;

     local(*CONF);

@@ -112,7 +112,7 @@ sub load_autoops {

 sub save_autoops {

     my($auto) = @_;

-    my($file) = Irssi::get_irssi_dir."/autoop";

+    my($file) = Irssi::get_irssi_dir()."/autoop";

     my($count) = 0;

     my($channel) = "";

     local(*CONF);

diff --git a/scripts/dns.pl b/scripts/dns.pl

index 9e9f4789..b5ba1056 100644

--- a/scripts/dns.pl

+++ b/scripts/dns.pl

@@ -175,7 +175,7 @@ sub host_lookup {

     # parent, wait for reply

     close($wh);

     Irssi::pidwait_add($pid);

-    $pipe_tag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, $rh);

+    $pipe_tag = Irssi::input_add(fileno($rh), INPUT_READ(), \&pipe_input, $rh);

     return;

   }

diff --git a/scripts/scriptassist.pl b/scripts/scriptassist.pl

index 68708945..2dfc55be 100644

--- a/scripts/scriptassist.pl

+++ b/scripts/scriptassist.pl

@@ -114,7 +114,7 @@ sub bg_do {

         Irssi::pidwait_add($pid);

         my $pipetag;

         my @args = ($rh, \$pipetag, $func);

-        $pipetag = Irssi::input_add(fileno($rh), INPUT_READ, \&pipe_input, \@args);

+        $pipetag = Irssi::input_add(fileno($rh), INPUT_READ(), \&pipe_input, \@args);

     } else {

 	eval {

 	    my @items = split(/ /, $func);