kernel-doc (2b306ecaf57b2b5004dcb671a46ef24a1c369db2) kernel-doc (e334f873eb4e1638dd0b45200d2d8838a13b0cac)
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

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

338 $sphinx_patch = substr($3,1)
339 } else {
340 $sphinx_patch = 0;
341 }
342 } else {
343 die "Sphinx version should either major.minor or major.minor.patch format\n";
344 }
345 } else {
1#!/usr/bin/env perl
2# SPDX-License-Identifier: GPL-2.0
3
4use warnings;
5use strict;
6
7## Copyright (c) 1998 Michael Zucchi, All Rights Reserved ##
8## Copyright (C) 2000, 1 Tim Waugh <twaugh@redhat.com> ##

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

338 $sphinx_patch = substr($3,1)
339 } else {
340 $sphinx_patch = 0;
341 }
342 } else {
343 die "Sphinx version should either major.minor or major.minor.patch format\n";
344 }
345 } else {
346 # Unknown argument
347 pod2usage(
348 -message => "Argument unknown!\n",
349 -exitval => 1,
350 -verbose => 99,
351 -sections => 'SYNOPSIS',
352 -output => \*STDERR,
353 );
346 # Unknown argument
347 pod2usage(
348 -message => "Argument unknown!\n",
349 -exitval => 1,
350 -verbose => 99,
351 -sections => 'SYNOPSIS',
352 -output => \*STDERR,
353 );
354 }
354 }
355 if ($#ARGV < 0){
356 pod2usage(
357 -message => "FILE argument missing\n",
358 -exitval => 1,
359 -verbose => 99,
360 -sections => 'SYNOPSIS',
361 -output => \*STDERR,
362 );
363 }
355}
356
357# continue execution near EOF;
358
359# The C domain dialect changed on Sphinx 3. So, we need to check the
360# version in order to produce the right tags.
361sub findprog($)
362{

--- 2132 unchanged lines hidden --- 		364}
365
366# continue execution near EOF;
367
368# The C domain dialect changed on Sphinx 3. So, we need to check the
369# version in order to produce the right tags.
370sub findprog($)
371{

--- 2132 unchanged lines hidden ---