Skip to content

Instantly share code, notes, and snippets.

@mattn
Created March 18, 2011 05:01
Show Gist options
  • Save mattn/875644 to your computer and use it in GitHub Desktop.
Save mattn/875644 to your computer and use it in GitHub Desktop.
#!perl
use strict;
use warnings;
use Growl::Any;
my $growl = Growl::Any->new( appname => 'foo', events => ['bar'] );
$growl->notify( 'bar', 'baz', '...' );
warn $growl->backend;
@mattn
Copy link
Author

mattn commented Mar 18, 2011

先頭に use utf8 しても駄目でしょうか?

@withgod
Copy link

withgod commented Mar 18, 2011

use utf8したら xs?部分のエラーは出なくなりましたけど次のエラー(cpanからの最新)

Wide character in subroutine entry at /System/Library/Perl/5.10.0/darwin-thread-multi-2level/Encode.pm line 182.

p5-Growl-Anyをgithubから取ってuse lib '../lib'したsampleは同じエラーっぽいです(行数違うけど)

Modification of a read-only value attempted at /System/Library/Perl/5.10.0/darwin-thread-multi-2level/Encode.pm line 183.

@mattn
Copy link
Author

mattn commented Mar 18, 2011

うむ...ちょっと考えてきます。

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment