summaryrefslogtreecommitdiff
path: root/src/extract-magic
diff options
context:
space:
mode:
authorJim Meyering <meyering@redhat.com>2009-08-22 18:56:06 +0200
committerJim Meyering <meyering@redhat.com>2009-08-25 09:21:00 +0200
commit5e778f7c8d1ecf3d8f11385db013af2ba026e2a5 (patch)
treee460d471f37f0dce1ba06f60f88114d1a65326c4 /src/extract-magic
parent2bc0f3caaafeb240cdcfd050b7ad1fe0ad14addf (diff)
downloadcoreutils-5e778f7c8d1ecf3d8f11385db013af2ba026e2a5.tar.xz
global: convert indentation-TABs to spaces
Transformed via this shell code: t=$'\t' git ls-files \ | grep -vE '(^|/)((GNU)?[Mm]akefile|ChangeLog)|\.(am|mk)$' \ | grep -vE 'tests/pr/|help2man' \ | xargs grep -lE "^ *$t" \ | xargs perl -MText::Tabs -ni -le \ '$m=/^( *\t[ \t]*)(.*)/; print $m ? expand($1) . $2 : $_'
Diffstat (limited to 'src/extract-magic')
-rw-r--r--src/extract-magic6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/extract-magic b/src/extract-magic
index 8daf59d22..dfea3d5fd 100644
--- a/src/extract-magic
+++ b/src/extract-magic
@@ -114,10 +114,10 @@ EOF
while (defined (my $line = <FH>))
{
$line =~ /^[ \t]+case S_MAGIC_/
- or next;
+ or next;
$line =~ m!^[ \t]+case (S_MAGIC_\w+): /\* (0x[0-9A-Fa-f]+) \*/$!
- or (warn "$ME:$file:$.: malformed case S_MAGIC_... line"),
- $fail = 1, next;
+ or (warn "$ME:$file:$.: malformed case S_MAGIC_... line"),
+ $fail = 1, next;
my $name = $1;
my $value = $2;
print "# define $name $value\n";