42 lines
1.3 KiB
Text
42 lines
1.3 KiB
Text
|
--- 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.
|