o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
ed.\n"; exit(1) }
} elsif( ! defined $INPUT_STRING ){
# read from STDIN
$INPUT_STRING = do { local $/; <STDIN> }
}
my $result = Data::Roundtrip::yaml2dump($INPUT_STRING, \%params);
if( ! defined $r
ed.\n"; exit(1) }
} elsif( ! defined $INPUT_STRING ){
# read from STDIN
$INPUT_STRING = do { local $/; <STDIN> }
}
my $result = Data::Roundtrip::dump2json($INPUT_STRING, \%params);
if( ! defined $r
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
ed.\n"; exit(1) }
} elsif( ! defined $INPUT_STRING ){
# read from STDIN
$INPUT_STRING = do { local $/; <STDIN> }
}
my $result = Data::Roundtrip::json2yaml($INPUT_STRING, \%params);
if( ! defined $r
ed.\n"; exit(1) }
} elsif( ! defined $INPUT_STRING ){
# read from STDIN
$INPUT_STRING = do { local $/; <STDIN> }
}
my $result = Data::Roundtrip::json2dump($INPUT_STRING, \%params);
if( ! defined $r
"-|") // die) == 0) {
exec 'osascript', '-e', $script or die;
} else {
my $result = do { local $/; <CMD> };
close CMD;
warn $result if config('debug');
return $result =~ /missing value/ ? und
ed.\n"; exit(1) }
} elsif( ! defined $INPUT_STRING ){
# read from STDIN
$INPUT_STRING = do { local $/; <STDIN> }
}
my $result = Data::Roundtrip::json2json($INPUT_STRING, \%params);
if( ! defined $r
ed.\n"; exit(1) }
} elsif( ! defined $INPUT_STRING ){
# read from STDIN
$INPUT_STRING = do { local $/; <STDIN> }
}
my $result = Data::Roundtrip::yaml2json($INPUT_STRING, \%params);
if( ! defined $r
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm
o read from $filename: $!\n";
next;
}
info("Scanning $filename ...");
my $c = do { local $/; <IN> };
close IN;
my %file = (orig => $c, changes => 0);
# Temporarily remove C/XS comm