view release on metacpan or search on metacpan
patch/cfitsio-4.6.2.patch view on Meta::CPAN
diff -rc cfitsio-4.6.2.orig/ChangeLog cfitsio-4.6.2/ChangeLog
*** cfitsio-4.6.2.orig/ChangeLog 2025-03-26 14:19:36.000000000 -0400
--- cfitsio-4.6.2/ChangeLog 2025-04-22 22:20:10.988557229 -0400
***************
*** 1964,1970 ****
use the lexical parser to perform calculations on variable-length
array columns.
! - added "#define MACHINE NATIVE" in fitsio2.h for all machines where
BYTESWAPPED == FALSE. This may improve the file writing performance
by eliminating the need to allocate a temporary buffer in some cases.
--- 1964,1970 ----
use the lexical parser to perform calculations on variable-length
array columns.
! - added "#define CFITSIO_MACHINE NATIVE" in fitsio2.h for all machines where
BYTESWAPPED == FALSE. This may improve the file writing performance
by eliminating the need to allocate a temporary buffer in some cases.
view release on metacpan or search on metacpan
inc/My/Builder.pm view on Meta::CPAN
unlink 'build_done' if (-e 'build_done');
}
sub check_sha1sum {
my( $self, $file, $sha1sum ) = @_;
my $alg = length $sha1sum == 64 ? 'SHA-256' : 'SHA-1';
my $sha1 = Digest::SHA->new($alg);
my $fh;
open($fh, $file) or die "###ERROR## Cannot check checksum for '$file'\n";
binmode($fh);
$sha1->addfile($fh);
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
cp/codepress/codepress.js view on Meta::CPAN
}
CodePress.run = function() {
s = document.getElementsByTagName('script');
for(var i=0,n=s.length;i<n;i++) {
if(s[i].src.match('codepress.js')) {
CodePress.path = s[i].src.replace('codepress.js','');
}
}
t = document.getElementsByTagName('textarea');
for(var i=0,n=t.length;i<n;i++) {
if(t[i].className.match('codepress')) {
id = t[i].id;
t[i].id = id+'_cp';
eval(id+' = new CodePress(t[i])');
t[i].parentNode.insertBefore(eval(id), t[i]);
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
$s =~ s/(\.)(\d{1,3})/sprintf("$1%03d",$2)/eg;
}
$s =~ s/^(\d+)\.?//;
my $l = $1 || 0;
my @v = map {
$_ . '0' x (3 - length $_)
} $s =~ /(\d{1,3})\D?/g;
$l = $l . '.' . join '', @v if @v;
return $l + 0;
}
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
view release on metacpan or search on metacpan
ElectronModuleBuild.pm view on Meta::CPAN
my ($os, $arch);
if ($^O =~ /linux/i) {
$os = 'linux';
$arch = length(pack("P", 0)) == 8 ? 'x64' : 'ia32';
} elsif ($^O =~ /darwin/i) {
$os = 'darwin';
$arch = 'x64';
} elsif ($^O =~ /mswin/i) {
$os = 'win32';
$arch = length(pack("P", 0)) == 8 ? 'x64' : 'ia32';
} else {
die "Your platform is currently not supported by Electron";
}
my $electron_zipfile_url = "https://github.com/atom/electron/releases/download/v$electron_version/electron-v$electron_version-$os-$arch.zip";
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
patches/FreeImage-3.17.0-ALL-IN-ONE.patch view on Meta::CPAN
"absq_s.ph %[temp2], %[temp2] \n\t" \
diff -ru src.3170/Source/LibWebP/src/dsp/dsp.filters_mips_dsp_r2.c src/Source/LibWebP/src/dsp/dsp.filters_mips_dsp_r2.c
--- src.3170/Source/LibWebP/src/dsp/dsp.filters_mips_dsp_r2.c 2015-02-20 02:34:34.000000000 +0100
+++ src/Source/LibWebP/src/dsp/dsp.filters_mips_dsp_r2.c 2017-06-22 22:17:19.462540500 +0200
@@ -48,7 +48,7 @@
"srl %[temp0], %[length], 0x2 \n\t" \
"beqz %[temp0], 4f \n\t" \
" andi %[temp6], %[length], 0x3 \n\t" \
- ".if "#INVERSE" \n\t" \
+ ".if " #INVERSE " \n\t" \
"lbu %[temp1], -1(%[src]) \n\t" \
"1: \n\t" \
"lbu %[temp2], 0(%[src]) \n\t" \
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
The object code form of an Application may incorporate material from
a header file that is part of the Library. You may convey such object
code under terms of your choice, provided that, if the incorporated
material is not limited to numerical parameters, data structure
layouts and accessors, or small macros, inline functions and templates
(ten or fewer lines in length), you do both of the following:
a) Give prominent notice with each copy of the object code that the
Library is used in it and that the Library and its use are
covered by this License.
view release on metacpan or search on metacpan
t/01-vars.t view on Meta::CPAN
use Alien::Gnuplot;
use Test::More tests => 12;
my $exec = $Alien::Gnuplot::executable;
ok (defined $exec, 'executable defined');
ok (length ($exec), 'executable path not empty');
my $version = $Alien::Gnuplot::version;
ok (defined $version, 'version defined');
ok (length ($version), 'version not empty');
like ($version, qr/^[\d.]+$/, 'version looks like version string');
my $pl = $Alien::Gnuplot::pl;
ok (defined $pl, 'patch level defined');
ok (length ($pl), 'patch level not empty');
like ($pl, qr/^\d+$/, 'patch level looks like patch level string');
my @terms = @Alien::Gnuplot::terms;
ok (scalar @terms, 'terms not empty');
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
lib/Alien/Google/GRPC.pm view on Meta::CPAN
I have some additional modules I'll be releasing soon that depend on this module.
It is possible some changes will be made to this module as the
integration process proceeds.
If a build is needed, it can be lengthy. A half hour or more to compile is not uncommon.
=cut
=head1 DEPENDENCIES
view release on metacpan or search on metacpan
GvaScript_Builder.pm view on Meta::CPAN
Version: '$Alien::GvaScript::VERSION',
REQUIRED_PROTOTYPE: '1.7',
load: function() {
function convertVersionString(versionString) {
var v = versionString.replace(/_.*|\\./g, '');
v = parseInt(v + '0'.times(4-v.length));
return versionString.indexOf('_') > -1 ? v-1 : v;
}
if((typeof Prototype=='undefined') ||
(typeof Element == 'undefined') ||
(typeof Element.Methods=='undefined') ||
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
Cannot find hdf header file, hdf.h.
Please add the correct library path to Makefile.PL or install HDF
EOF
my $defs = finddefs();
print <<EOF unless length $defs;
WARNING: Unknown cpu type $Config{archname}! Not setting \$hdf_defs.
(This may not be a bad thing)
EOF
print "Final \$hdf_defs flags: '$defs'\n";
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
view release on metacpan or search on metacpan
inc/MY/Build.pm view on Meta::CPAN
unless( $response->{success} )
{
my $content = ( exists( $response->{content} ) and
defined( $response->{content} ) and
length( $response->{content} ) )
? substr( $response->{content}, 0, 8*1024 )
: "empty";
chomp $content;
die sprintf( "\nUnable to fetch archive: %s %s; Content was%s\n",
$response->{status}, $response->{reason},
inc/MY/Build.pm view on Meta::CPAN
open my $fd, '>', $self->ibapi_archive()
or die "\nCannot write to " . $self->ibapi_archive() . ": $!";
binmode( $fd );
my $bytes = syswrite( $fd, $response->{content} );
die "\nError writing to " . $self->ibapi_archive() . ": $!"
unless( $bytes == length( $response->{content} ) );
close( $fd );
print "OK\n";
}
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
lib/Alien/Judy.pm view on Meta::CPAN
# TODO: add literate documentation
sub inc_dirs {
# Find files from ., $sitearch and @INC.
my @dirs =
grep { defined() && length() }
@Config::Config{qw(sitearchexp sitearch)},
@INC,
Cwd::getcwd();
# But first try to find them in $_/Alien/Judy/
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
}
if ( @reports ) {
push @full_reports, "=== $title ===\n\n";
my $ml = _max( map { length $_->[0] } @reports );
my $wl = _max( map { length $_->[1] } @reports );
my $hl = _max( map { length $_->[2] } @reports );
if ($type eq 'modules') {
splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
push @full_reports, map { sprintf(" %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
}
view release on metacpan or search on metacpan
t/00_diag.t view on Meta::CPAN
}
pass 'okay';
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
spacer;
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;