aboutsummaryrefslogtreecommitdiffstats
path: root/devel
diff options
context:
space:
mode:
Diffstat (limited to 'devel')
-rw-r--r--devel/p5-VCP/Makefile7
-rw-r--r--devel/p5-VCP/files/patch-MANIFEST16
-rw-r--r--devel/p5-VCP/files/patch-META.yml27
-rw-r--r--devel/p5-VCP/files/patch-bin::build_vcp_executable.pl47
-rw-r--r--devel/p5-VCP/files/patch-bin::dump_rev_map11
-rw-r--r--devel/p5-VCP/files/patch-bin::vcp41
-rw-r--r--devel/p5-VCP/files/patch-lib::VCP.pm7
-rw-r--r--devel/p5-VCP/files/patch-lib::VCP::Filter::changesets.pm22
-rw-r--r--devel/p5-VCP/files/patch-lib::VCP::Filter::logmemsize.pm110
-rw-r--r--devel/p5-VCP/files/patch-lib::VCP::Source::p4.pm13
-rw-r--r--devel/p5-VCP/files/patch-lib::VCP::Utils::p4.pm11
-rw-r--r--devel/p5-VCP/pkg-plist1
12 files changed, 309 insertions, 4 deletions
diff --git a/devel/p5-VCP/Makefile b/devel/p5-VCP/Makefile
index 425a880659ff..1dd76e5d16f4 100644
--- a/devel/p5-VCP/Makefile
+++ b/devel/p5-VCP/Makefile
@@ -6,7 +6,7 @@
PORTNAME= VCP
PORTVERSION= 0.9
-PORTREVISION= 1
+PORTREVISION= 2
CATEGORIES= devel perl5
MASTER_SITES= ${MASTER_SITE_PERL_CPAN}
MASTER_SITE_SUBDIR= XML/RBS
@@ -26,7 +26,6 @@ BUILD_DEPENDS= ${SITE_PERL}/${PERL_ARCH}/XML/Parser.pm:${PORTSDIR}/textproc/p5-X
${SITE_PERL}/BFD.pm:${PORTSDIR}/devel/p5-BFD \
${SITE_PERL}/Text/Table.pm:${PORTSDIR}/textproc/p5-Text-Table \
${SITE_PERL}/${PERL_ARCH}/List/Util.pm:${PORTSDIR}/lang/p5-Scalar-List-Utils
-
RUN_DEPENDS= ${BUILD_DEPENDS}
.include <bsd.port.pre.mk>
@@ -77,7 +76,6 @@ MAN3= RevML::Doctype.3 \
VCP::Filter::dumpdata.3 \
VCP::Filter::identity.3 \
VCP::Filter::labelmap.3 \
- VCP::Filter::logmemsize.3 \
VCP::Filter::map.3 \
VCP::Filter::sort.3 \
VCP::Filter::stringedit.3 \
@@ -114,4 +112,7 @@ MAN3= RevML::Doctype.3 \
VCP::Utils::revml.3 \
VCP::Utils::vss.3
+post-patch:
+ ${FIND} ${WRKSRC} -name "*.orig" -a -exec ${RM} -f {} \;
+
.include <bsd.port.post.mk>
diff --git a/devel/p5-VCP/files/patch-MANIFEST b/devel/p5-VCP/files/patch-MANIFEST
new file mode 100644
index 000000000000..b649391c2353
--- /dev/null
+++ b/devel/p5-VCP/files/patch-MANIFEST
@@ -0,0 +1,16 @@
+--- MANIFEST.orig Fri Mar 19 05:38:29 2004
++++ MANIFEST Mon Jul 12 04:45:29 2004
+@@ -53,7 +53,6 @@
+ lib/VCP/Filter/dumpdata.pm
+ lib/VCP/Filter/identity.pm
+ lib/VCP/Filter/labelmap.pm
+-lib/VCP/Filter/logmemsize.pm
+ lib/VCP/Filter/map.pm
+ lib/VCP/Filter/sort.pm
+ lib/VCP/Filter/stringedit.pm
+@@ -164,4 +163,4 @@
+ t/95p42p4.t
+ t/99p4_label_branch_rev_1.t
+ t/buildpss.ksh,v
+-t/swapnfs.c,v
++META.yml Module meta-data (added by MakeMaker)
diff --git a/devel/p5-VCP/files/patch-META.yml b/devel/p5-VCP/files/patch-META.yml
new file mode 100644
index 000000000000..e4abcd49f682
--- /dev/null
+++ b/devel/p5-VCP/files/patch-META.yml
@@ -0,0 +1,27 @@
+--- META.yml.orig Thu Jan 1 08:00:00 1970
++++ META.yml Sun Jul 18 01:49:37 2004
+@@ -0,0 +1,24 @@
++# http://module-build.sourceforge.net/META-spec.html
++#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
++name: VCP
++version: 0.9
++version_from: lib/VCP.pm
++installdirs: site
++requires:
++ Digest::MD5: 0
++ File::Temp: 0
++ HTML::Element: 0
++ IPC::Run3: 0
++ MIME::Base64: 0
++ Pod::HTML_Elements: 0
++ Pod::Links: 0
++ Pod::Select: 0
++ Pod::Text: 0
++ Pod::Usage: 0
++ Regexp::Shellish: 0.93
++ Text::Diff: 0
++ XML::Parser: 0
++ XML::ValidWriter: 0.38
++
++distribution_type: module
++generated_by: ExtUtils::MakeMaker version 6.17
diff --git a/devel/p5-VCP/files/patch-bin::build_vcp_executable.pl b/devel/p5-VCP/files/patch-bin::build_vcp_executable.pl
new file mode 100644
index 000000000000..96d50146768c
--- /dev/null
+++ b/devel/p5-VCP/files/patch-bin::build_vcp_executable.pl
@@ -0,0 +1,47 @@
+--- bin/build_vcp_executable.pl.orig Sat Jan 31 12:03:32 2004
++++ bin/build_vcp_executable.pl Tue Apr 13 02:08:36 2004
+@@ -7,7 +7,8 @@
+ =head1 SYNOPSIS
+
+ cd VCP
+- bin\build_vcp_executable.pl
++ bin\build_vcp_executable.pl ## build ./vcp-bin or ./vcp.exe
++ bin\build_vcp_executable.pl --build-vcp-pl ## build ./vcp.pl
+
+ =head1 DESCRIPTION
+
+@@ -65,8 +66,13 @@
+ use lib "lib";
+ use constant is_win32 => $^O =~ /Win32/i;
+
++use Getopt::Long;
+ use VCP::TestUtils qw( run );
+
++GetOptions( "build-vcp-pl" => \my $build_vcp_pl ) or die $!;
++warn "ignoring command line parameter(s): ", join ", ", map "\"$_\"", @ARGV
++ if @ARGV;
++
+ ## VCP uses lazy loading extensively...
+ my %skip_modules = (
+ "VCP::TestUtils" => 1,
+@@ -121,7 +127,7 @@
+ close VCP_OUT;
+ }
+
+-my $exe_name = is_win32 ? "vcp.exe" : "vcp-bin";
++my $exe_name = $build_vcp_pl ? "vcp.pl" : is_win32 ? "vcp.exe" : "vcp-bin";
+
+ if ( 1 ) {
+ if ( -e $exe_name ) {
+@@ -130,8 +136,9 @@
+
+ my @cmd = (
+ "pp",
+- "-o", $exe_name,
+-# "-p", "-B", "-o", "vcp.pl",
++ $build_vcp_pl
++ ? ( "-P", "-o", "vcp.pl" )
++ : ( "-o", $exe_name ),
+ "-lib=lib",
+ sort(
+ map "--add=$_", @modules#, map "lib/$_", @pod_files
diff --git a/devel/p5-VCP/files/patch-bin::dump_rev_map b/devel/p5-VCP/files/patch-bin::dump_rev_map
new file mode 100644
index 000000000000..ca96d03ceb8c
--- /dev/null
+++ b/devel/p5-VCP/files/patch-bin::dump_rev_map
@@ -0,0 +1,11 @@
+--- bin/dump_rev_map.orig Thu Oct 9 03:09:00 2003
++++ bin/dump_rev_map Fri Apr 16 01:25:58 2004
+@@ -2,7 +2,7 @@
+
+ use strict;
+ use VCP::Debug qw( :debug );
+-BEGIN { enable_debug ".*"; }
++#BEGIN { enable_debug ".*"; }
+
+ use VCP::RevMapDB;
+
diff --git a/devel/p5-VCP/files/patch-bin::vcp b/devel/p5-VCP/files/patch-bin::vcp
new file mode 100644
index 000000000000..d2ada10b8147
--- /dev/null
+++ b/devel/p5-VCP/files/patch-bin::vcp
@@ -0,0 +1,41 @@
+--- bin/vcp.orig Fri Mar 19 05:30:20 2004
++++ bin/vcp Tue Apr 13 02:08:37 2004
+@@ -360,8 +360,6 @@
+ || -S _ < 1_000_000 # That would be toooo big
+ );
+
+- print banner() if $is_vcp_file;
+-
+ $vcp_spec = $is_vcp_file
+ ? VCP::ConfigFileUtils::parse_config_file( $source_spec )
+ : ! $cant_be_vcp_file
+@@ -375,6 +373,7 @@
+ $vcp_filename = $source_spec;
+ shift @ARGV;
+ }
++
+ };
+
+ if ( $vcp_spec ) {
+@@ -418,6 +417,10 @@
+ $spec = "";
+ }
+
++ print banner()
++ if $type eq "dest" && length $spec && $spec ne "-";
++ ## Don't emit the banner if we're emitting to STDOUT.
++
+ push @plugins, load_module( $spec, $type, $default_scheme, $value );
+
+ die "extra parameters for $tag: ", shell_quote( @$value ), "\n"
+@@ -442,6 +445,10 @@
+ $type = "Dest";
+ $default_scheme = "revml";
+ }
++
++ print banner()
++ if $type eq "Dest" && length $spec && $spec ne "-";
++ ## Don't emit the banner if we're emitting to STDOUT.
+
+ ## We pass \@ARGV to the constructors for source and dest so
+ ## that they may parse some of @ARGV and leave the rest.
diff --git a/devel/p5-VCP/files/patch-lib::VCP.pm b/devel/p5-VCP/files/patch-lib::VCP.pm
new file mode 100644
index 000000000000..644502d0dfd4
--- /dev/null
+++ b/devel/p5-VCP/files/patch-lib::VCP.pm
@@ -0,0 +1,7 @@
+--- lib/VCP.pm.orig Fri Mar 19 05:30:51 2004
++++ lib/VCP.pm Mon Jul 12 21:21:10 2004
+@@ -174,3 +174,4 @@
+ =cut
+
+ 1
++;
diff --git a/devel/p5-VCP/files/patch-lib::VCP::Filter::changesets.pm b/devel/p5-VCP/files/patch-lib::VCP::Filter::changesets.pm
new file mode 100644
index 000000000000..311ba24d9d71
--- /dev/null
+++ b/devel/p5-VCP/files/patch-lib::VCP::Filter::changesets.pm
@@ -0,0 +1,22 @@
+--- lib/VCP/Filter/changesets.pm.orig Fri Jan 30 10:48:34 2004
++++ lib/VCP/Filter/changesets.pm Sun Jul 18 01:39:02 2004
+@@ -666,8 +666,8 @@
+ if ( !$change ) {
+ my @future_indexes =
+ grep $_ != $r_index,
+- unpack "w*", $changes->[$change_index]
+- if $changes->[$change_index];
++ unpack "w*",
++ exists $changes->[$change_index] ? $changes->[$change_index] : '';
+
+ undef $changes->[$change_index];
+
+@@ -780,7 +780,7 @@
+
+ my $r_index = delete $self->{INDEXES_BY_ID}->{$r->id};
+
+- if ( $children->[$r_index] ) {
++ if ( exists $children->[$r_index] ) {
+ push @cur_indexes, unpack "w*", $children->[$r_index];
+ }
+ undef $children->[$r_index]; ## undef $foo releases extra memory
diff --git a/devel/p5-VCP/files/patch-lib::VCP::Filter::logmemsize.pm b/devel/p5-VCP/files/patch-lib::VCP::Filter::logmemsize.pm
new file mode 100644
index 000000000000..956ea9498e82
--- /dev/null
+++ b/devel/p5-VCP/files/patch-lib::VCP::Filter::logmemsize.pm
@@ -0,0 +1,110 @@
+--- lib/VCP/Filter/logmemsize.pm.orig Sat Nov 15 04:41:49 2003
++++ lib/VCP/Filter/logmemsize.pm Thu Jan 1 08:00:00 1970
+@@ -1,107 +0,0 @@
+-package VCP::Filter::logmemsize ;
+-
+-=head1 NAME
+-
+-VCP::Filter::logmemsize - developement logging filter
+-
+-=head1 DESCRIPTION
+-
+-Watches memory size. Only works on linux for now.
+-
+-Not a supported module, API and behavior may change without warning.
+-
+-=cut
+-
+-$VERSION = 0.1 ;
+-
+-use strict ;
+-
+-my $start_size;
+-
+-
+-sub get_size {
+- open F, "/proc/$$/statm" or return 0;
+- my ( $s ) = <F> =~ /^(\d+)/;
+- close F;
+-
+- return $s * 4;
+-}
+-
+-sub get_sizes {
+- my $s = get_size;
+-
+- return ( $s - $start_size, "KB (", $s, "KB)" );
+-}
+-
+-BEGIN {
+- $start_size = get_size;
+-}
+-
+-use base qw( VCP::Filter );
+-use fields qw( LogString );
+-
+-use VCP::Utils qw( empty );
+-use VCP::Logger qw( pr lg );
+-
+-END {
+- lg "memsize: ", get_sizes;
+-}
+-
+-sub new {
+- my $class = shift ;
+- $class = ref $class || $class ;
+-
+- my ( $spec, $options ) = @_;
+-
+- my $self = $class->SUPER::new( @_ );
+- $self->{LogString} = shift @$options if $options;
+- $self->{LogString} = "" unless defined $self->{LogString};
+- $self->{LogString} .= " " unless empty $self->{LogString};
+-
+- lg $self->{LogString}, "starting memsize: (${start_size}KB)";
+- lg $self->{LogString}, "memsize: ", get_sizes;
+-
+- return $self;
+-}
+-
+-
+-sub handle_header {
+- my VCP::Filter::logmemsize $self = shift ;
+-
+- lg $self->{LogString}, "memsize: ", get_sizes;
+-
+- $self->SUPER::handle_header( @_ );
+-}
+-
+-sub handle_rev {
+- my VCP::Filter::logmemsize $self = shift ;
+-
+- lg $self->{LogString}, "memsize: ", get_sizes;
+- $self->SUPER::handle_rev( @_ );
+-}
+-
+-
+-sub handle_footer {
+- my VCP::Filter::logmemsize $self = shift ;
+-
+- lg $self->{LogString}, "memsize: ", get_sizes;
+- $self->SUPER::handle_footer ( @_ );
+- lg $self->{LogString}, "memsize: ", get_sizes;
+-}
+-
+-=back
+-
+-=head1 AUTHOR
+-
+-Barrie Slaymaker <barries@slaysys.com>
+-
+-=head1 COPYRIGHT
+-
+-Copyright (c) 2000, 2001, 2002 Perforce Software, Inc.
+-All rights reserved.
+-
+-See L<VCP::License|VCP::License> (C<vcp help license>) for the terms of use.
+-
+-=cut
+-
+-1
diff --git a/devel/p5-VCP/files/patch-lib::VCP::Source::p4.pm b/devel/p5-VCP/files/patch-lib::VCP::Source::p4.pm
new file mode 100644
index 000000000000..49e918e67879
--- /dev/null
+++ b/devel/p5-VCP/files/patch-lib::VCP::Source::p4.pm
@@ -0,0 +1,13 @@
+--- lib/VCP/Source/p4.pm.orig Fri Jan 30 10:48:36 2004
++++ lib/VCP/Source/p4.pm Mon Apr 19 01:10:03 2004
+@@ -781,8 +781,9 @@
+ next ;
+ }
+ next if $spec =~ m{^error: //\.\.\.\@.+ file(\(s\))?( not in label.)?$} ;
++ next if $spec =~ m{^error: //\.\.\..+ - no such file\(s\)\.};
+ $spec =~ /^.*?: *(\/\/.*#\d+)/
+- or die "Couldn't parse name & rev from '$spec' in p4 output:\n$files\n" ;
++ or die "Couldn't parse name & rev from '$spec' in p4 output:\n$files\n";
+ my $id = $1;
+
+ debug "p4 label '$label' => '$id'" if debugging ;
diff --git a/devel/p5-VCP/files/patch-lib::VCP::Utils::p4.pm b/devel/p5-VCP/files/patch-lib::VCP::Utils::p4.pm
new file mode 100644
index 000000000000..7adf9f7795b6
--- /dev/null
+++ b/devel/p5-VCP/files/patch-lib::VCP::Utils::p4.pm
@@ -0,0 +1,11 @@
+--- lib/VCP/Utils/p4.pm.orig Fri Jan 30 10:48:39 2004
++++ lib/VCP/Utils/p4.pm Mon Apr 19 00:35:59 2004
+@@ -830,7 +830,7 @@
+ $self->p4( [ "client", "-i" ], \$client_spec, \my $out ) ;
+
+ die "unexpected stdout from p4:\np4: ", $out
+- unless $out =~ /^Client\s.*\ssaved\./ ;
++ unless $out =~ /^Client\s.*\s(saved|.*not changed)\./ ;
+ }
+
+ =item split_repo_server
diff --git a/devel/p5-VCP/pkg-plist b/devel/p5-VCP/pkg-plist
index 9fb222386819..ebc4cff19ea2 100644
--- a/devel/p5-VCP/pkg-plist
+++ b/devel/p5-VCP/pkg-plist
@@ -39,7 +39,6 @@ bin/vcp
%%SITE_PERL%%/VCP/Filter/dumpdata.pm
%%SITE_PERL%%/VCP/Filter/identity.pm
%%SITE_PERL%%/VCP/Filter/labelmap.pm
-%%SITE_PERL%%/VCP/Filter/logmemsize.pm
%%SITE_PERL%%/VCP/Filter/map.pm
%%SITE_PERL%%/VCP/Filter/sort.pm
%%SITE_PERL%%/VCP/Filter/stringedit.pm
generated by cgit (git 2.34.1) at 2024-12-31 01:27:03 +0800