perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r123737 - /perl/modperl/trunk/util/getdiff.pl
Date Thu, 30 Dec 2004 22:40:23 GMT
Author: stas
Date: Thu Dec 30 14:40:22 2004
New Revision: 123737

URL: http://svn.apache.org/viewcvs?view=rev&rev=123737
Log:
cvs2svn

Modified:
   perl/modperl/trunk/util/getdiff.pl

Modified: perl/modperl/trunk/util/getdiff.pl
Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/util/getdiff.pl?view=diff&rev=123737&p1=perl/modperl/trunk/util/getdiff.pl&r1=123736&p2=perl/modperl/trunk/util/getdiff.pl&r2=123737
==============================================================================
--- perl/modperl/trunk/util/getdiff.pl	(original)
+++ perl/modperl/trunk/util/getdiff.pl	Thu Dec 30 14:40:22 2004
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# this script creates a diff against CVS
+# this script creates a diff against SVN
 # and against /dev/null for all files in ARGV
 # and prints it to STDOUT
 #
@@ -12,10 +12,7 @@
 # patch -p0 < newtest.patch
 
 # cvs diff
-my $o = `cvs diff -u`;
-
-# strip '? filename' cvs lines for unknown files
-$o =~ s/^\?.*\n//gm;
+my $o = `svn diff`;
 
 for (@ARGV) {
     $o .= "\n";

Mime
View raw message