chiark
/
gitweb
/
~ianmdlvl
/
dgit.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b0f234d
)
Dgit.pm: Provide messagequote
author
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 26 Jul 2015 14:19:20 +0000
(15:19 +0100)
committer
Ian Jackson
<ijackson@chiark.greenend.org.uk>
Sun, 26 Jul 2015 14:27:45 +0000
(15:27 +0100)
Debian/Dgit.pm
patch
|
blob
|
history
diff --git
a/Debian/Dgit.pm
b/Debian/Dgit.pm
index edb338ca455a3e9f50405a139518292a1f94931a..ba3e6880c55ba1be645b4500344da48ae3d7a77f 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-25,7
+25,7
@@
BEGIN {
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
initdebug enabledebug enabledebuglevel
printdebug debugcmd
$debugprefix *debuglevel *DEBUG
- shellquote printcmd);
+ shellquote printcmd
messagequote
);
# implicitly uses $main::us
%EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] );
@EXPORT_OK = @{ $EXPORT_TAGS{policyflags} };
# implicitly uses $main::us
%EXPORT_TAGS = ( policyflags => [qw(NOFFCHECK FRESHREPO)] );
@EXPORT_OK = @{ $EXPORT_TAGS{policyflags} };
@@
-73,6
+73,16
@@
sub printdebug {
print DEBUG $debugprefix, @_ or die $! if $debuglevel>0;
}
print DEBUG $debugprefix, @_ or die $! if $debuglevel>0;
}
+sub messagequote ($) {
+ local ($_) = @_;
+ s{\\}{\\\\}g;
+ s{\n}{\\n}g;
+ s{\x08}{\\b}g;
+ s{\t}{\\t}g;
+ s{[\000-\037\177]}{ sprintf "\\x%02x", ord $& }ge;
+ $_;
+}
+
sub shellquote {
my @out;
local $_;
sub shellquote {
my @out;
local $_;