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:
0717f9a
)
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:19:24 +0000
(15:19 +0100)
Debian/Dgit.pm
patch
|
blob
|
history
diff --git
a/Debian/Dgit.pm
b/Debian/Dgit.pm
index d66b712bc86af9ba104a88cc0bbac06e375d2370..9216dee879d04eb285cb028072b4a1b47dbc8bfe 100644
(file)
--- a/
Debian/Dgit.pm
+++ b/
Debian/Dgit.pm
@@
-26,7
+26,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} };
@@
-81,6
+81,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 $_;