← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/irssi/gutsy-backports

« back to all changes in this revision

Viewing changes to src/perl/perl-common.c

  • Committer: Bazaar Package Importer
  • Author(s): John Dong
  • Date: 2007-11-19 10:49:04 UTC
  • mfrom: (6.1.1 hardy)
  • Revision ID: james.westby@ubuntu.com-20071119104904-kzu9r9h7cq8as4ri
Tags: 0.8.12-2ubuntu1~gutsy1
Automated backport upload; no source changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/perl/perl-common.c
13
13
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
14
    GNU General Public License for more details.
15
15
 
16
 
    You should have received a copy of the GNU General Public License
17
 
    along with this program; if not, write to the Free Software
18
 
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
16
    You should have received a copy of the GNU General Public License along
 
17
    with this program; if not, write to the Free Software Foundation, Inc.,
 
18
    51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
*/
20
20
 
21
21
#define NEED_PERL_H
584
584
        chat_type = chat_protocol_lookup(rec->name);
585
585
        g_return_if_fail(chat_type >= 0);
586
586
 
587
 
#if GLIB_MAJOR_VERSION < 2
588
 
        name = g_strdup(rec->name);
589
 
        g_strdown(name+1);
590
 
#else
591
587
        name = g_ascii_strdown(rec->name,-1);
592
588
        *name = *(rec->name);
593
 
#endif
594
589
 
595
590
        /* window items: channel, query */
596
591
        type = module_get_uniq_id_str("WINDOW ITEM TYPE", "CHANNEL");