diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-25 16:17:44 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-25 16:17:44 +0000 |
| commit | ba445fe37eba5fe0138904b41987d45ab0ae41a2 (patch) | |
| tree | 9a182b2d9fa28af3baa30d0563d97fec50add8bd /src/perl/perl-core.h | |
| parent | ed4d24b2824d64ad1b28d30180fa3d6bde2ed8f3 (diff) | |
| download | irssi-ba445fe37eba5fe0138904b41987d45ab0ae41a2.zip | |
/SCRIPT LOAD modifies the script name so that all non-alphanumeric
characters are translated to '_' char .. now this behaviour is done also
when /SCRIPT UNLOAD is done, so people don't get confused why their "test-1"
script can't be unloaded.
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2145 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/perl-core.h')
| -rw-r--r-- | src/perl/perl-core.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/perl/perl-core.h b/src/perl/perl-core.h index a883ead0..b451cc5c 100644 --- a/src/perl/perl-core.h +++ b/src/perl/perl-core.h @@ -31,6 +31,9 @@ PERL_SCRIPT_REC *perl_script_find_package(const char *package); /* Returns full path for the script */ char *perl_script_get_path(const char *name); +/* Modify the script name so that all non-alphanumeric characters are + translated to '_' */ +void script_fix_name(char *name); /* If core should handle printing script errors */ void perl_core_print_script_error(int print); |