view release on metacpan or  search on metacpan

patch/cfitsio-4.6.2.patch  view on Meta::CPAN

        printf(" Byteswapping is not being done correctly on this system.\n");
!       printf(" Check the CFITSIO_MACHINE and BYTESWAPPED definitions in fitsio2.h\n");
        printf(" Please report this problem to the CFITSIO developers.\n");
        printf(  "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!\n");
        FFUNLOCK;
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.
  
***************
*** 2164,2170 ****
      with elliptical or rectangular regions.
  

t/00-report-prereqs.t  view on Meta::CPAN

                if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
                    push @dep_errors, "$mod is not installed ($req_string)";
                }
            }
        }

        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;
            }
            else {
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
            }