View Issue Details
| ID | Project | Category | View Status | Date Submitted | Last Update |
|---|---|---|---|---|---|
| 0000636 | Perl for OS/2 | Feature Request | public | 2014-12-15 01:55 | 2014-12-15 01:55 |
| Reporter | komh | Assigned To | |||
| Priority | normal | Severity | minor | Reproducibility | always |
| Status | new | Resolution | open | ||
| Summary | 0000636: Use .bak if no extension is supplied to -i option | ||||
| Description | Hi/2. The following command fails. perl -pi -e s/old/new/ file An error message is Can't do inplace edit without backup. If providing some extensions such as .bak, it will be happy. perl -pi.bak -e s/old/new/ file However, adding .bak every time is very annoying. So using .bak by default will make many users happy. | ||||
| Tags | No tags attached. | ||||
| Attached Files | 0001-Use-.bak-automatically-if-no-extension-is-supplied-t.patch (878 bytes)
From 30ccfb6826be24890a94941e5494f4c8ba4a58e9 Mon Sep 17 00:00:00 2001
From: KO Myung-Hun <komh@chollian.net>
Date: Mon, 15 Dec 2014 10:40:58 +0900
Subject: [PATCH] Use .bak automatically if no extension is supplied to -i
option
This fixes the following error when no extension is suppplied to
-i option.
-----
Can't do inplace edit without backup.
-----
modified: perl.c
---
perl.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/perl.c b/perl.c
index 1e09366..b8d5b1c 100644
--- a/perl.c
+++ b/perl.c
@@ -3174,7 +3174,7 @@ Perl_moreswitches(pTHX_ const char *s)
usage();
case 'i':
Safefree(PL_inplace);
-#if defined(__CYGWIN__) /* do backup extension automagically */
+#if defined(__CYGWIN__) || defined(__OS2__) /* do backup extension automagically */
if (*(s+1) == '\0') {
PL_inplace = savepvs(".bak");
return s+1;
--
1.8.5.2
| ||||
