【特集】ペルセウス座流星群 2010年8月12〜13日
夏の定番天文現象と言えば、ペルセウス座流星群です。出現のピークは、8月12日の夜から翌日13日の未明。お盆休みのころなので、街から離れた暗い空で観察しやすいでしょう。今年は月明かりもなく、運が良ければ1時間に50個以上の流れ星が見られます。
Error trace
- in Carp::croak at /usr/lib/x86_64-linux-gnu/perl-base/Carp.pm line 289
286: shortmess_heavy(@_); 287: } 288: 289: sub croak { die shortmess @_ } 290: sub confess { die longmess @_ } 291: sub carp { warn shortmess @_ } 292: sub cluck { warn longmess @_ }
$_[0] 'fileparse(): need a valid pathname' - in File::Basename::fileparse at /usr/lib/x86_64-linux-gnu/perl-base/File/Basename.pm line 28
25: 26: unless (defined $fullname) { 27: require Carp; 28: Carp::croak("fileparse(): need a valid pathname"); 29: } 30: 31: my $orig_type = '';
$_[0] undef - in File::Basename::basename at /usr/lib/x86_64-linux-gnu/perl-base/File/Basename.pm line 106
103: # character present in string (after first stripping trailing slashes) 104: _strip_trailing_sep($path); 105: 106: my($basename, $dirname, $suffix) = fileparse( $path, map("\Q$_\E",@_) ); 107: 108: # From BSD basename(1) 109: # The suffix is not stripped if it is identical to the remaining
$_[0] undef - in Ads::render at /app/script/../lib/Ads.pm line 286
283: my $tx = Text::Xslate->new(path => 'template'); 284: my $extension; 285: 286: $extension = basename($self->stash->{image}); 287: if ($extension =~ m!\.([^\.]+)\Z!) { 288: $extension = lc($1); 289: }
$_[0] 'Ads=HASH(0x55d8e6b89be8)' $_[1] 'charset' $_[2] 'euc-jp' - in Ads::embed_html at /app/script/../lib/Ads.pm line 253
250: my $rec = $self->pickup_row(\@rows); 251: $self->stash(%$rec); 252: 253: return $self->render(charset => $code); 254: } 255: 256: # power潟ゅ篏若潟≪
$_[0] 'Ads=HASH(0x55d8e6b89be8)' - in Ads::run at /app/script/../lib/Ads.pm line 110
107: return $self->ads_check; 108: } 109: 110: return $self->embed_html; 111: } 112: 113: sub ads_go {
$_[0] 'Ads=HASH(0x55d8e6b89be8)' - in Ads::run_psgi at /app/script/../lib/Ads.pm line 90
87: my $env = shift; 88: my $req = Plack::Request->new($env); 89: my $app = $cls->new(req => $req); 90: $app->run; 91: return $app->res->finalize; 92: } 93:
$_[0] 'Ads' $_[1] 'HASH(0x55d8e6ba6a78)' - in Plack::Sandbox::_2fapp_2fscript_2fads_2epsgi::__ANON__ at /app/script/ads.psgi line 8
5: 6: my $app = sub { 7: my $env = shift; 8: return Ads->run_psgi($env); 9: };
$_[0] 'HASH(0x55d8e6ba6a78)' - in Plack::Middleware::Lint::call at /app/local/lib/perl5/Plack/Middleware/Lint.pm line 24
21: my $env = shift; 22: 23: $self->validate_env($env); 24: my $res = $self->app->($env); 25: return $self->validate_res($res); 26: } 27:
$_[0] 'Plack::Middleware::Lint=HASH(0x55d8e0540dc8)' $_[1] 'HASH(0x55d8e6ba6a78)' - in Plack::Middleware::StackTrace::try {...} at /app/local/lib/perl5/Plack/Component.pm line 50
47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; 50: return sub { $self->call(@_) }; 51: } 52: 53:
- in (eval) at /app/local/lib/perl5/Try/Tiny.pm line 100
97: if ( $wantarray ) { 98: @ret = $try->(); 99: } elsif ( defined $wantarray ) { 100: $ret[0] = $try->(); 101: } else { 102: $try->(); 103: };
- in Plack::Middleware::StackTrace::call at /app/local/lib/perl5/Try/Tiny.pm line 93
90: 91: # failed will be true if the eval dies, because 1 will not be returned 92: # from the eval body 93: my $failed = not eval { 94: $@ = $prev_error; 95: 96: # evaluate the try block in the correct context
$_[0] 'Plack::Middleware::StackTrace=HASH(0x55d8e0496138)' $_[1] 'HASH(0x55d8e6ba6a78)' - in Plack::Component::__ANON__ at /app/local/lib/perl5/Plack/Component.pm line 50
47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; 50: return sub { $self->call(@_) }; 51: } 52: 53:
$_[0] 'HASH(0x55d8e6ba6a78)' - in Plack::Middleware::AccessLog::call at /app/local/lib/perl5/Plack/Middleware/AccessLog.pm line 27
24: my $self = shift; 25: my($env) = @_; 26: 27: my $res = $self->app->($env); 28: 29: if ( ref($res) && ref($res) eq 'ARRAY' ) { 30: my $content_length = Plack::Util::content_length($res->[2]);
$_[0] 'Plack::Middleware::AccessLog=HASH(0x55d8e10fb800)' $_[1] 'HASH(0x55d8e6ba6a78)' - in Plack::Component::__ANON__ at /app/local/lib/perl5/Plack/Component.pm line 50
47: sub to_app { 48: my $self = shift; 49: $self->prepare_app; 50: return sub { $self->call(@_) }; 51: } 52: 53:
$_[0] 'HASH(0x55d8e6ba6a78)' - in (eval) at /app/local/lib/perl5/Plack/Util.pm line 145
142: sub run_app($$) { 143: my($app, $env) = @_; 144: 145: return eval { $app->($env) } || do { 146: my $body = "Internal Server Error"; 147: $env->{'psgi.errors'}->print($@); 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
- in Plack::Util::run_app at /app/local/lib/perl5/Plack/Util.pm line 145
142: sub run_app($$) { 143: my($app, $env) = @_; 144: 145: return eval { $app->($env) } || do { 146: my $body = "Internal Server Error"; 147: $env->{'psgi.errors'}->print($@); 148: [ 500, [ 'Content-Type' => 'text/plain', 'Content-Length' => length($body) ], [ $body ] ];
$_[0] 'CODE(0x55d8e10fb758)' $_[1] 'HASH(0x55d8e6ba6a78)' - in Twiggy::Server::_run_app at /app/local/lib/perl5/Twiggy/Server.pm line 310
307: } 308: } 309: 310: my $res = Plack::Util::run_app $app, $env; 311: 312: if ( ref $res eq 'ARRAY' ) { 313: $self->_write_psgi_response($sock, $res);
$_[0] 'Twiggy::Server=HASH(0x55d8e1438238)' $_[1] 'CODE(0x55d8e10fb758)' $_[2] 'HASH(0x55d8e6ba6a78)' $_[3] 'GLOB(0x55d8e6b5d2a0)' - in (eval) at /app/local/lib/perl5/Twiggy/Server.pm line 152
149: 150: local $@; 151: unless ( eval { 152: if ( my $env = $try_parse->() ) { 153: # the request data is already available, no need to parse more 154: $self->_run_app($app, $env, $sock); 155: } else {
- in Twiggy::Server::__ANON__ at /app/local/lib/perl5/Twiggy/Server.pm line 151
148: }; 149: 150: local $@; 151: unless ( eval { 152: if ( my $env = $try_parse->() ) { 153: # the request data is already available, no need to parse more 154: $self->_run_app($app, $env, $sock);
$_[0] 'GLOB(0x55d8e6b5d2a0)' $_[1] '172.18.0.30' $_[2] 38786 - in AnyEvent::Socket::__ANON__ at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent/Socket.pm line 1266
1263: AnyEvent::fh_unblock $fh; # POSIX requires inheritance, the outside world does not 1264: 1265: my ($service, $host) = unpack_sockaddr $peer; 1266: $accept->($fh, format_address $host, $service); 1267: } 1268: }; 1269: }, $prepare
- in AnyEvent::Loop::one_event at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent/Loop.pm line 248
245: while (/1/g) { 246: # and use the resulting string position as fd 247: $_ && $_->[2]() 248: for @{ $fds->[W][(pos) - 1] || [] }; 249: } 250: } 251: }
- in AnyEvent::CondVar::Base::_wait at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent/Impl/Perl.pm line 46
43: sub now { $AnyEvent::Loop::NOW } 44: 45: sub AnyEvent::CondVar::Base::_wait { 46: AnyEvent::Loop::one_event until exists $_[0]{_ae_sent}; 47: } 48: 49: sub io {
$_[0] 'AnyEvent::CondVar=HASH(0x55d8e17148b8)' - in AnyEvent::CondVar::Base::recv at /app/local/lib/perl5/x86_64-linux-gnu-thread-multi/AnyEvent.pm line 2031
2028: and Carp::croak "AnyEvent::CondVar: recursive blocking wait attempted"; 2029: 2030: local $WAITING = 1; 2031: $_[0]->_wait; 2032: } 2033: 2034: $_[0]{_ae_croak}
$_[0] 'AnyEvent::CondVar=HASH(0x55d8e17148b8)' - in Twiggy::Server::run at /app/local/lib/perl5/Twiggy/Server.pm line 599
596: $self->register_service(@_); 597: 598: my $w; $w = AE::signal QUIT => sub { $self->{exit_guard}->end; undef $w }; 599: $self->{exit_guard}->recv; 600: } 601: 602: package Twiggy::Writer;
$_[0] 'Twiggy::Server=HASH(0x55d8e1438238)' $_[1] 'CODE(0x55d8e10fb758)' - in Plack::Handler::Twiggy::run at /app/local/lib/perl5/Plack/Handler/Twiggy.pm line 17
14: eval "require $class"; 15: die if $@; 16: 17: $class->new(%{$self})->run($app); 18: } 19: 20:
$_[0] 'Plack::Handler::Twiggy=HASH(0x55d8e13e4a60)' $_[1] 'CODE(0x55d8e10fb758)' - in Plack::Loader::run at /app/local/lib/perl5/Plack/Loader.pm line 84
81: 82: sub run { 83: my($self, $server) = @_; 84: $server->run($self->{app}); 85: } 86: 87: 1;
$_[0] 'Plack::Loader=HASH(0x55d8e02245d0)' $_[1] 'Plack::Handler::Twiggy=HASH(0x55d8e13e4a60)' - in Plack::Runner::run at /app/local/lib/perl5/Plack/Runner.pm line 279
276: $loader->preload_app($app); 277: 278: my $server = $self->load_server($loader); 279: $loader->run($server); 280: } 281: 282: 1;
$_[0] 'Plack::Runner=HASH(0x55d8dffb1860)' - at /app/local/bin/plackup line 7
4: 5: my $runner = Plack::Runner->new; 6: $runner->parse_options(@ARGV); 7: $runner->run; 8: 9: __END__ 10: