mirror/freebsd-ports
1
0
Fork 0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-23 04:23:08 +00:00
Code Issues Releases Activity

Update port: databases/jdb bugfixes for perl-5.8

Browse Source 
PR:		ports/48219
Submitted by:	Lars Eggert <larse@isi.edu>
This commit is contained in:
Edwin Groothuis 2003-02-23 23:02:26 +00:00
parent 3c0597d32a
commit b741c8cfa4
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=76327
3 changed files with 103 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
databases/jdb/Makefile
View File

@ -7,6 +7,7 @@
PORTNAME= jdb
PORTVERSION= 1.12
PORTREVISION= 1
CATEGORIES= databases perl5
MASTER_SITES= http://www.isi.edu/~johnh/SOFTWARE/JDB/

11
databases/jdb/files/patch-aa Normal file
View File

@ -0,0 +1,11 @@
--- d Wed Feb 12 15:33:25 2003
+++ dblib.pl Wed Feb 12 15:33:39 2003
@@ -330,7 +330,7 @@
sub force_numeric {
my($value, $ignore_non_numeric) = @_;
- if ($value =~ /^[-+]?[0-9]+(.[0-9]+)?(e[-+0-9]+)?$/) {
+ if ($value =~ /^\s*[-+]?[0-9]+(.[0-9]+)?(e[-+0-9]+)?\s*$/) {
return $value + 0.0; # force numeric
} else {
if ($ignore_non_numeric) {

91
databases/jdb/files/patch-ab Normal file
View File

@ -0,0 +1,91 @@
--- dbcolmultiscale.O Wed Feb 12 15:15:35 2003
+++ dbcolmultiscale Wed Feb 12 15:15:50 2003
@@ -127,7 +127,6 @@
push(@INC, $dblibdir);
}
use DbGetopt;
-use FileCache;
require "$dblibdir/dblib.pl";
@orig_argv = @ARGV;
--- dbmultistats.O Wed Feb 12 15:08:07 2003
+++ dbmultistats Wed Feb 12 15:09:28 2003
@@ -57,7 +57,6 @@
push(@INC, $dblibdir);
}
use DbGetopt;
-use FileCache;
require "$dblibdir/dblib.pl";
@orig_argv = @ARGV;
@@ -112,13 +111,13 @@
# open a new file
$path = $tag_files{$tag} = &db_tmpfile(TMP);
close(TMP);
- cacheout $path;
- print $path "$col_headertag data\n";
+ open PATH, ">>$path";
+ print PATH "$col_headertag data\n";
$tag_counts{$tag} = 1;
};
$path = $tag_files{$tag};
- cacheout $path;
- print $path "$val\n";
+ open PATH, ">>$path";
+ print PATH "$val\n";
};
@dbstats_args = ("$dbbindir/dbstats");
@@ -131,8 +130,7 @@
foreach $tag (sort keys %tag_files) {
# close it
$path = $tag_files{$tag};
- cacheout $path;
- close($path);
+ close(PATH);
open(FROMMEAN, join(" ", @dbstats_args) . " <$tag_files{$tag} |") || die "$prog: cannot run dbstats.\n";
@meanout = <FROMMEAN>;
--- dbrowsplituniq.O Wed Feb 12 15:10:08 2003
+++ dbrowsplituniq Wed Feb 12 15:14:43 2003
@@ -77,7 +77,6 @@
require "$dblibdir/dblib.pl";
use DbGetopt;
use English;
-use FileCache;
@orig_argv = @ARGV;
my($prog) = &progname;
@@ -130,8 +129,8 @@
my($path) = $prefix . $index . ".jdb";
$index++;
$keys_to_paths{$key} = $path;
- cacheout $path;
- write_header_fh_tag($path, $col_headertag);
+ open $fh, ">>$path";
+ write_header_fh_tag($fh, $col_headertag);
return $path;
}
@@ -141,15 +140,15 @@
&split_cols;
] . $code . q[
my($path) = &key_to_path($key);
- cacheout $path;
- write_these_cols_fh($path, @f);
+ open $fh, ">>$path";
+ write_these_cols_fh($fh, @f);
};
# cleanup
foreach (values %keys_to_paths) {
- cacheout $_;
- delayed_write_comments($_);
- print $_ "# | $prog ", join(" ", @orig_argv), "\n";
- close $_;
+ open $fh, ">>$_";
+ delayed_write_comments($fh);
+ print $fh "# | $prog ", join(" ", @orig_argv), "\n";
+ close $fh;
};
];
print $loop if ($debug);