auto
w
C
Index of /FSS-OZR/root/sys/bus/acpi/devices/ACPI0010:00/LNXCPU:01/physical_node/node0/memory7
Index of /FSS-OZR/root/sys/bus/acpi/devices/ACPI0010:00/LNXCPU:01/physical_node/node0/memory7
File not found.
am_J*j"Tnajbѿ File not found.
ƾ File not found.
/ lz *e8\'6%1h
t!_ ub
&=LV[( package JSON::Syck;
use strict;
use Exporter;
use YAML::Syck ();
our $VERSION = '1.47';
our @EXPORT_OK = qw( Load Dump LoadFile DumpFile DumpInto );
our @ISA = qw/Exporter/;
*Load = \&YAML::Syck::LoadJSON;
*Dump = \&YAML::Syck::DumpJSON;
sub DumpFile {
my $file = shift;
if ( YAML::Syck::_is_glob($file) ) {
if ( tied(*$file) ) {
# Tied filehandles (IO::String, IO::Scalar, etc.) don't support
# C-level PerlIO_write. Fall back to Perl-level print.
print $file YAML::Syck::DumpJSON( $_[0] )
or die "Error writing to filehandle $file: $!\n";
}
else {
my $err = YAML::Syck::DumpJSONFile( $_[0], $file );
if ($err) {
$! = 0 + $err;
die "Error writing to filehandle $file: $!\n";
}
}
}
else {
open( my $fh, '>', $file ) or die "Cannot write to $file: $!";
my $err = YAML::Syck::DumpJSONFile( $_[0], $fh );
if ($err) {
$! = 0 + $err;
die "Error writing to file $file: $!\n";
}
close $fh
or die "Error writing to file $file: $!\n";
}
return 1;
}
sub LoadFile {
my $file = s