From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 28 Mar 1999 06:00:46 +0000 (+0000)
Subject: update p4 utility to ignore non-text files
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=95470547e854df745a1dec3565d4ef1ed8634342;p=p5sagit%2Fp5-mst-13.2.git

update p4 utility to ignore non-text files

p4raw-id: //depot/perl@3183
---

diff --git a/Porting/p4desc b/Porting/p4desc
index 062a6f1..7bac3eb 100755
--- a/Porting/p4desc
+++ b/Porting/p4desc
@@ -1,4 +1,4 @@
-#!/l/local/bin/perl -wpi.bak
+#!/usr/bin/perl -wpi.bak
 
 #
 # Munge "p4 describe ..." output to include new files.
@@ -90,12 +90,23 @@ sub newfiles {
     my $addfile;
     my $ret = "";
     for $addfile (@addfiles) {
+	my $type = `p4 -p $p4port files $addfile`;
+	if ($?) {
+	    warn "$0: `p4 -p $p4port print $addfile` failed, status[$?]\n";
+	    next;
+	}
+	$type =~ m|^//.*\((.+)\)$| or next;
+	$type = $1;
+	unless ($type =~ /text/) {
+	    $ret .= "\n==== $addfile ($type) ====\n\n";
+	    next;
+	}
 	my @new = `p4 -p $p4port print $addfile`;
 	if ($?) {
 	    die "$0: `p4 -p $p4port print $addfile` failed, status[$?]\n";
 	}
 	my $desc = shift @new;		# discard initial description
-	$ret .= "\n==== $addfile (text) ====\n\n";
+	$ret .= "\n==== $addfile ($type) ====\n\n";
 	my $lines = "," . @new;
 	$lines = "" if @new < 2;
 	$ret .= "\@\@ -0,0 +1$lines \@\@\n";