checkpatch.pl (cc621a9838cb045a370717a764907a6d6c47fa76) checkpatch.pl (cb8d4c8f54b8271f642f02382eec29d468bb1c77)
1#!/usr/bin/perl -w
2# (c) 2001, Dave Jones. (the file handling bit)
3# (c) 2005, Joel Schopp <jschopp@austin.ibm.com> (the ugly bit)
4# (c) 2007,2008, Andy Whitcroft <apw@uk.ibm.com> (new conditions, test suite)
5# (c) 2008-2010 Andy Whitcroft <apw@canonical.com>
6# Licensed under the terms of the GNU GPL License version 2
7
8use strict;

--- 349 unchanged lines hidden (view full) ---

358 my $c;
359
360 # Always copy over the diff marker.
361 $res = substr($line, 0, 1);
362
363 for ($off = 1; $off < length($line); $off++) {
364 $c = substr($line, $off, 1);
365
1#!/usr/bin/perl -w
2# (c) 2001, Dave Jones. (the file handling bit)
3# (c) 2005, Joel Schopp <jschopp@austin.ibm.com> (the ugly bit)
4# (c) 2007,2008, Andy Whitcroft <apw@uk.ibm.com> (new conditions, test suite)
5# (c) 2008-2010 Andy Whitcroft <apw@canonical.com>
6# Licensed under the terms of the GNU GPL License version 2
7
8use strict;

--- 349 unchanged lines hidden (view full) ---

358 my $c;
359
360 # Always copy over the diff marker.
361 $res = substr($line, 0, 1);
362
363 for ($off = 1; $off < length($line); $off++) {
364 $c = substr($line, $off, 1);
365
366 # Comments we are wacking completly including the begin
366 # Comments we are wacking completely including the begin
367 # and end, all to $;.
368 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
369 $sanitise_quote = '*/';
370
371 substr($res, $off, 2, "$;$;");
372 $off++;
373 next;
374 }

--- 2233 unchanged lines hidden --- 		367 # and end, all to $;.
368 if ($sanitise_quote eq '' && substr($line, $off, 2) eq '/*') {
369 $sanitise_quote = '*/';
370
371 substr($res, $off, 2, "$;$;");
372 $off++;
373 next;
374 }

--- 2233 unchanged lines hidden ---