zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-21 17:42:49 +02:00
Code Issues Projects Releases Packages Wiki Activity

attempt to fix scriptassist.pl

Browse source
This commit is contained in:
altffour 2021-01-07 12:35:06 +03:00
commit 9175ee0bc1
No known key found for this signature in database
GPG key ID: B4ADFA86EDF5CCE9
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/scriptassist.pl
View file

@ -204,7 +204,13 @@ sub get_names {
$xname =~ s/\W/_/g; $xname =~ s/\W/_/g;
my $pname = "${xname}::"; my $pname = "${xname}::";
if ($xname ne $sname || $sname =~ /_/) { if ($xname ne $sname || $sname =~ /_/) {
my $dir = Irssi::get_irssi_dir()."/scripts/"; my $dir = "";
if (Irssi::is_xdg_supported()) {
$dir = Irssi::get_runtime_dir()."/scripts/";
}
else {
$dir = Irssi::get_irssi_dir()."/scripts/";
}
if ($db && exists $db->{"$sname.pl"}) { if ($db && exists $db->{"$sname.pl"}) {
# $found = 1; # $found = 1;
} elsif (-e $dir.$plname || -e $dir."$sname.pl" || -e $dir."autorun/$sname.pl") { } elsif (-e $dir.$plname || -e $dir."$sname.pl" || -e $dir."autorun/$sname.pl") {

7
src/perl/common/Core.xs
View file

@ -606,6 +606,13 @@ CODE:
OUTPUT: OUTPUT:
RETVAL RETVAL
char *
get_runtime_dir()
CODE:
RETVAL = (char *) g_build_filename(g_get_user_runtime_dir(), "irssi", NULL);
OUTPUT:
RETVAL
char * char *
get_irssi_dir() get_irssi_dir()
CODE: CODE: