percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-16 02:01:41 +08:00
Code Issues Packages Projects Releases Wiki Activity

Add new updated-modules and update all modules in a few tools to see if it works correctly.

Browse Source
This commit is contained in:
Daniel Nichter
2011-07-12 11:55:44 -06:00
parent 64ddb421e5
commit dc72f5bb9e
5 changed files with 477 additions and 368 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
util/extract-package
View File

@@ -23,15 +23,15 @@ fi
# package tool_name from tool-name.
perl_pkg=${pkg//-/_}
pkg_start_byte=$(grep --byte-offset "^# Package: $perl_pkg$" $tool | cut -d':' -f1)
if [ -z "$pkg_start_byte" ]; then
pkg_start_byte=$(grep --byte-offset "^package $perl_pkg;" $tool | cut -d':' -f1)
if [ -z "$pkg_start_byte" ]; then
pkg_start_line=$(grep --line-number "^# Package: $perl_pkg$" $tool | cut -d':' -f1)
if [ -z "$pkg_start_line" ]; then
pkg_start_line=$(grep --line-number "^package $perl_pkg;" $tool | cut -d':' -f1)
if [ -z "$pkg_start_line" ]; then
die "Cannot find package $perl_pkg in $tool"
fi
fi
# The package should end with a line that starts with 1;.
tail -c +$pkg_start_byte $tool | awk '/^1;/ { exit } { print }'
tail -n +$pkg_start_line $tool | awk '/^1;/ { print; exit; } { print }'
exit $?