dcarrillo/prezto
1
0
Fork 0
mirror of https://github.com/dcarrillo/prezto.git synced 2025-06-14 08:41:43 +00:00
Code Issues Releases Wiki Activity

Fixed Perl find/substitute options, added inverse.

Browse Source
This commit is contained in:
Sorin Ionescu
2012-01-29 16:32:01 -05:00
parent f77e2c8e05
commit e1a71a84b1
3 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
plugins/perl/functions/psub
View File

@ -15,13 +15,13 @@ options:
EOF
)"
while getopts ':igmxe::' opt; do
while getopts ':gimsx' opt; do
case "$opt" in
(i) modifiers="${modifiers}i" ;;
(g) modifiers="${modifiers}g" ;;
(i) modifiers="${modifiers}i" ;;
(m) modifiers="${modifiers}m" ;;
(s) modifiers="${sodifiers}s" ;;
(x) modifiers="${modifiers}x" ;;
(e) modifiers="${modifiers}e" ;;
(:)
print "$0: option requires an argument: $OPTARG" >&2
print "$usage" >&2
@ -46,3 +46,4 @@ replacement="$2"
repeat 2 shift
perl -i'.orig' -n -l -e "s/${pattern//\//\\/}/${replacement//\//\\/}/${modifiers}; print" "$@"