Location:

【特集】ペルセウス座流星群 2009年8月12〜13日

夏の定番天文現象と言えば、ペルセウス座流星群です。出現のピークは、8月12日の夜から翌日13日の未明。あいにく今年は月明かりの中で見ることになりますが、ペルセウス座流星群はもともと明るい流星が多いので見逃すわけにはいきません。

Error: fileparse(): need a valid pathname at /app/script/../lib/Ads.pm line 286. at /usr/lib/x86_64-linux-gnu/perl-base/Carp.pm line 289

Error trace

fileparse(): need a valid pathname at /app/script/../lib/Ads.pm line 286.
 at /usr/lib/x86_64-linux-gnu/perl-base/Carp.pm line 289
  1. 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 @_ }
    

    Show function arguments

    $_[0]'fileparse(): need a valid pathname'
  2. 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 = '';
    

    Show function arguments

    $_[0]undef
  3. 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 
    

    Show function arguments

    $_[0]undef
  4. 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:         }
    

    Show function arguments

    $_[0]'Ads=HASH(0x55d8e706ff20)'
    $_[1]'charset'
    $_[2]'euc-jp'
  5. 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潟ゅ篏若潟≪
    

    Show function arguments

    $_[0]'Ads=HASH(0x55d8e706ff20)'
  6. 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 {
    

    Show function arguments

    $_[0]'Ads=HASH(0x55d8e706ff20)'
  7. 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: 
    

    Show function arguments

    $_[0]'Ads'
    $_[1]'HASH(0x55d8e70ab278)'
  8. 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: };
    

    Show function arguments

    $_[0]'HASH(0x55d8e70ab278)'
  9. 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: 
    

    Show function arguments

    $_[0]'Plack::Middleware::Lint=HASH(0x55d8e0540dc8)'
    $_[1]'HASH(0x55d8e70ab278)'
  10. 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: 
    
  11. 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:     };
    
  12. 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
    

    Show function arguments

    $_[0]'Plack::Middleware::StackTrace=HASH(0x55d8e0496138)'
    $_[1]'HASH(0x55d8e70ab278)'
  13. 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: 
    

    Show function arguments

    $_[0]'HASH(0x55d8e70ab278)'
  14. 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]);
    

    Show function arguments

    $_[0]'Plack::Middleware::AccessLog=HASH(0x55d8e10fb800)'
    $_[1]'HASH(0x55d8e70ab278)'
  15. 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: 
    

    Show function arguments

    $_[0]'HASH(0x55d8e70ab278)'
  16. 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 ] ];
    
  17. 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 ] ];
    

    Show function arguments

    $_[0]'CODE(0x55d8e10fb758)'
    $_[1]'HASH(0x55d8e70ab278)'
  18. 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);
    

    Show function arguments

    $_[0]'Twiggy::Server=HASH(0x55d8e1438238)'
    $_[1]'CODE(0x55d8e10fb758)'
    $_[2]'HASH(0x55d8e70ab278)'
    $_[3]'GLOB(0x55d8e70667b0)'
  19. 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 {
    
  20. 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);
    

    Show function arguments

    $_[0]'GLOB(0x55d8e70667b0)'
    $_[1]'172.18.0.30'
    $_[2]56126
  21. 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
    
  22. 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:          }
    
  23. 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 {
    

    Show function arguments

    $_[0]'AnyEvent::CondVar=HASH(0x55d8e17148b8)'
  24. 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}
    

    Show function arguments

    $_[0]'AnyEvent::CondVar=HASH(0x55d8e17148b8)'
  25. 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;
    

    Show function arguments

    $_[0]'Twiggy::Server=HASH(0x55d8e1438238)'
    $_[1]'CODE(0x55d8e10fb758)'
  26. 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: 
    

    Show function arguments

    $_[0]'Plack::Handler::Twiggy=HASH(0x55d8e13e4a60)'
    $_[1]'CODE(0x55d8e10fb758)'
  27. 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;
    

    Show function arguments

    $_[0]'Plack::Loader=HASH(0x55d8e02245d0)'
    $_[1]'Plack::Handler::Twiggy=HASH(0x55d8e13e4a60)'
  28. 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;
    

    Show function arguments

    $_[0]'Plack::Runner=HASH(0x55d8dffb1860)'
  29. 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: