hutzdog
/
cap2site
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Try to fix link paths

This commit is contained in:
Hutzdog 2023-03-20 14:33:10 -07:00
parent 973af154e1
commit ba7203c2af
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cap2site.pl
View File

@ -5,7 +5,7 @@ use strict;
use warnings; use warnings;
# Data # Data
package cap2site::Config; package Config;
use Class::Struct; use Class::Struct;
struct('Config', => { struct('Config', => {
@ -47,7 +47,7 @@ sub isA($$$) {
return grep $self->extensions->{$type}, $url; return grep $self->extensions->{$type}, $url;
} }
package cap2site::State; package State;
sub new($$) { sub new($$) {
my ($class,$args) = @_; my ($class,$args) = @_;
@ -198,7 +198,7 @@ use Pod::Usage;
use Getopt::Long; use Getopt::Long;
my $help = 0; my $help = 0;
our $config = $cap2site::Config::DEFAULT; our $config = $Config::DEFAULT;
GetOptions ( GetOptions (
'help+' => \$help, 'help+' => \$help,
'inline-audio!' => \$config->inline->{audio}, 'inline-audio!' => \$config->inline->{audio},
@ -209,7 +209,7 @@ GetOptions (
pod2usage(-verbose => $help) if $help; pod2usage(-verbose => $help) if $help;
our $state = cap2site::State->new(pack('b2', 0b00)); our $state = State->new(pack('b2', 0b00));
main::parse $config, $state, \*STDIN; main::parse $config, $state, \*STDIN;
__END__ __END__