45 |
|
|
46 |
if ( my $ref = ref($url) ) { |
if ( my $ref = ref($url) ) { |
47 |
die "url not URI but ", dump( $url ) unless $ref =~ m{^URI}; |
die "url not URI but ", dump( $url ) unless $ref =~ m{^URI}; |
48 |
|
} else { |
49 |
$url = URI->new($url); |
$url = URI->new($url); |
50 |
} |
} |
51 |
|
|
62 |
if ( system($cmd) == 0 ) { |
if ( system($cmd) == 0 ) { |
63 |
my $server = Frey::Server->new; |
my $server = Frey::Server->new; |
64 |
$self->load_config; |
$self->load_config; |
65 |
Module::Reload->check; |
# Module::Reload->check; |
66 |
warn "# reload done"; |
warn "# reload done"; |
67 |
$self->print( refresh( $1, 1 ) ); |
$self->print( refresh( $1, 0 ) ); |
68 |
return; |
return; |
69 |
} else { |
} else { |
70 |
warn "ERROR: $?"; |
warn "ERROR: $?"; |
86 |
return $class; |
return $class; |
87 |
} |
} |
88 |
|
|
|
|
|
89 |
my $f; |
my $f; |
90 |
|
|
91 |
# shared run params |
# shared run params |